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Introduction 


The objective of the database development task is to produce a propulsion database 
which is easy to use and modify while also being comprehensive in the level of detail 
available. The database is to be available on the Macintosh computer system. The 
task is to extend across all three years of the contract. Consequently, a significant 
fraction of the effort in this first year of the task was devoted to the development of 
the database structure to ensure a robust base for the following years’ efforts. 
Nonetheless, significant point design propulsion system descriptions and 

parametric models were also produced. 

It is desirable that the database be usable for both the preliminary analysis of whole 
classes of propulsion systems (e.g., a booster engine using LOX/RP for a wide range 
of thrust levels) and for the analysis of existing propulsion systems (e.g., SSME, RD- 
170, etc.). Since it would be very difficult to fulfill both these uses with only one 
database structure, it was decided to develop two separate tools, one for each type of 

usage. 

The first usage (analysis of classes of propulsion systems) is normally implemented 
by a series of unrelated tools written as spreadsheet models, or as dedicated code 
(most commonly written in Fortran) and running on mainframes, workstations, or 
PCs. These tools normally can not communicate with each other and are written 
without common structure - they calculate weight breakdowns to different sets of 
components even for similar engine types and calculate performance in different 
manners. This usage requires large amounts of calculations, methods of data 
presentation unique to each propulsion type (and sometimes to different engine 
classes within a type), and benefits from automated parametric data generation and 
automated preparation of graphs (e.g., weight versus mixture ratio). 

The commercial tool type which comes closest to meeting these needs is a 
spreadsheet, particularly one with good graphing capabilities, an extensive 
scripting or macro language, and the ability to access external code written in 
different computer languages (especially Fortran). Both Resolve and Excel were 
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considered and Resolve was chosen because its scripting language is extensive and 
very easy to use even by casual users, and because its charting capabilities 
(including the scripting of all elements of each chart) were more extensive than 
Excel (at least until Excel 4 which was not available to the author at the time). It 
subsequently became known that Resolve also puts fewer limits on the use of 
Fortran externals than Excel. This second usage type will be referred to throughout 
the rest of the report as a “parametric propulsion database”. 

The second usage can be implemented with a classic database structure where a 
large number of pieces of information (as numbers, text blocks, and 
pictures/graphics) about each of a number of specific existing or conceptual 
propulsion systems is stored. The information describes the single design point 
engine with some information about operation at off-design conditions. Each 
propulsion system can be stored as a record with the individual pieces of 
information stored as fields within the record. Minimal calculation is needed, but 
the ability to sort, group, and aggregate (i.e., all engines using RP with vacuum 
thrust above a specified number) is needed. Consequently, for this usage, referred to 
throughout the rest of the report as a “propulsion system database” a commercial 
database was chosen. Both 4th Dimension and FileMaker Pro were considered. 
FileMaker Pro was chosen because it is much easier to change, both in structure 
and output, even by casual users. It is also much more readily available because of 
its much lower cost, cross platform capability (Macintosh and PC with Windows), 
and lack of need of dedicated, experienced users. 

Each of the two propulsion databases, parametric propulsion database and 
propulsion system database, are described in the rest of the report. The descriptions 
include a user’s guide to each code, write-ups for models used, and sample output. 
Because of the large number of pages of figures in relation to the length of text, this 
report is structured with the text all at the front and then followed by the 90 pages of 
figures relating to the parametric propulsion database, which is in turn followed by 
the 151 pages of figures relating to the propulsion system database. 

An appendix includes three technical notes describing how to attach external code 
written in Fortran to both Resolve and to Excel. These procedures were developed 
during this year’s effort with the Excel work done on Rocketdyne resources and the 
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Resolve work done on a combination of contract and Rocketdyne resources. 
Interactions with tech support at Claris (the publisher of Resolve), Microsoft (the 
publisher of Excel), and at the publisher of the Macintosh Fortran compiler used, 
indicate that the use of Fortran externals with either Resolve or Excel breaks new 
ground. This capability will be extremely useful for the parametric propulsion 
database throughout the rest of this effort and should be very useful in general to 
anyone within the aerospace community using Macintosh computers. 
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Parametric Propulsion Database 

The parametric propulsion database was developed using the Macintosh 
spreadsheet Resolve, version l.lvl (published by Claris). It was developed on a 
Macintosh II fx running system 7 with the tuneup kit. It was developed using an 
Apple 13 inch color monitor. It has been checked in black and white mode, on a 
limited number of other Macintosh computer types, and with system 6.0.5. Two 
problems were encountered during these checks: some color choices were changed 
to work in black and white mode, and the Fortran externals were recompiled in two 
forms so they would work on Macintoshs without math coprocessors, but would also 

take advantage of the coprocessors when present. 

The parametric propulsion database consists of two files and one folder (which in 

turn contains three files): 

Parametric Database 

Library 

Externals 

OHSCC 
ORPGG 
Nuclear Rkt 


The file “Library” and the folder “Externals” must be in the same folder as the 
application “Claris Resolve”. The file “Parametric Database” can be placed 
anywhere. None of these file or folder names can be changed because they are used 
explicitly by name in calls by scripts in the database. The file “Parametric Database” 
is a Resolve spreadsheet which is double-clicked to run the parametric propulsion 
database. It uses the file “Library” to update its worksheet script. “Library” contains 
a number of functions which are called by other scripts. The file Library is 
actually only needed when changes are made to the worksheet script. The program 
will run without “Library” (although two error messages will occur) but changes 
cannot be made, even temporarily, to the worksheet script. The folder “Externals” 
contains the three compiled Fortran codes (with embedded hooks written in C - see 
Appendix) currently used by the database. 


5 



The model re quires the fonts “Bookman”, “New Century Schoolbook”, and 
“Helvetica” be installed (Postscript or True Type). If they are not available then most 
screens and output will be difficult to read and many words will not be fully visible 
in their defined columns. All three of these fonts came with the various Apple 
LaserWriters (and many other printers) and are readily available. The use of Adobe 
Type Manager (ATM) or True Type (with the True Type versions of the fonts) is 
highly recommended to improve the readability of the screen. 


To run the database simply double-click on the file “Parametric Database . The 
current version (version 1.4, 5 April 1993) contains the following models. 

Solid Fuel Boosters 

Large Motors (328K-8.9M lbf) using ASRM (ANB3652) propellant 
Large Motors (328K-8.9M lbf) using neutralized Mg (DL-H435) propellant 
Medium Motors (62K-328K lbf) using neutralized Mg (DL-H435) propellant 
Large Motors (328K-8.9M lbf) using non-chlorine (PGN/AN/AL) propellant 

Hybrid Boosters 

Large Motor (380K-21M lbf) using O 2 as oxidizer and HTPB and escorez as 

fuel - pressure fed 
Cryogenic Engines 

Large (100k-2M lbf) LOX/H 2 engines using staged combustion cycles 
Hydrocarbon Engines 

Large (500K-3M lbf) LOX/RP engines using gas generator cycles 

Nuclear Thermal Propulsion 

NERVA derived prismatic fuel solid core rocket. 

The solid fuel rocket booster and hybrid booster models are implemented as 
spreadsheet models, while the liquid engines and the nuclear engine are 
implemented as Fortran external functions. 

The basic philosophy of the model is to navigate a large spreadsheet by means of 
buttons that the user “clicks”. The buttons invoke scripts which change what portion 
of the spreadsheet is displayed (i.e., moves to the next “screen”), change the screen 
scaling to make the display fit, write spreadsheet formulas and data, or call 
external code. The buttons are where most of the “action” occurs and where most of 
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the calculation is done. The model is structurally dependent on scripting and the 
use of Fortran externals. About 50 pages of scripts are used and over 130K of 

compiled Fortran external code is used. 

Code Overview 

Figure 1 shows the result of double-clicking the file “Parametric Database”. 
Pressing the continue button takes the user to Figure 2 which is the main 
navigation screen. Only the Cryogenic, Hydrocarbon Fuels, Solid Fuels, Hybrid RB, 
and the Nuclear Thermal buttons are currently active. The Return button, which is 
present on all screens, always returns to the previous screen. 

Tracing the models under the Chemical label, pressing the Cryogenic button brings 
up Figure 3 and pressing the Hydrocarbon Fuels button brings up Figure 4. 
Pressing either of the Large LOX/H 2 or Large LOX/RP buttons brings up Figure 5. 

The figure will be slightly different depending on which button was pressed. Since 
the LOX/H 2 and LOX/RP models are implemented as external Fortran code, there 

are no equations under the numbers in the cells as would be expected in a 
spreadsheet. Because the same piece of spreadsheet “real estate” (i.e., the same 
cells) are used for both the LOX/H 2 and the LOX/RP models, the Calculate button in 

the upper left side of the screen must be pressed to produce numbers for the weights, 
lengths and performance. The independent variables, and the ranges through 
which each can be varied and remain within the validity of the model, are shown in 
the upper part of the screen on the yellow background. To examine a new case, 
change any or all of these independent variables and then press the calculate button. 
New values for the results will appear in the cells. 

Pressing the “English Units” button changes the button name to “Metric Units” and 
changes the results (only) to metric units. Pressing the button a second time 
reverses the process. The Print (Report) button sets up for printing the page (without 
buttons) in portrait mode and stripped of color. The Print (Briefing) button sets up 
for printing the page in landscape mode and stripped of color. These buttons work 
the same on other screens. The page setup dialog box will always come up because 
Resolve script does not have a means to specify landscape versus portrait mode, so 
the user must click the appropriate icon. 
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The model can be used to generate parametric data and produce a table and selected 
graphs of that data. To do so, press the Graphs button and the parametric 
generation screen of Figure 6 will appear. This screen shows the variables which 
can be used for parametrics as titles within yellow buttons. The parametrics 
possible are one dimensional, only one variable can be varied at a time. To make a 
parametric run using one of the independent variables that are shown on the yellow 
buttons, choose a range of the variable to vary. Input its starting value and its 
ending value in the column "Variable to Change" (within the limits that are shown 
under each yellow button), along with the number of discrete points (11 maximum) 
to calculate (the variable values must be evenly spaced throughout the range which 
is why only the number of points, as opposed to the actual values, is input). 

The column "Other Independent Variables" shows the values that will be used 
during the parametric run for the variables other than the one being varied. Use 
this column to change these values to those desired for the parametric run. These 
values start as the values from the previous screen, but they will change as 
parametrics are generated taking on the last value of the range used if they have 
been used in a previous parametric run. They should always be checked. When 
satisfied that the input is as desired, then press the yellow button that has the name 
of the variable that was chosen to vaiy. Pressing that button actually replaces the 
chosen independent variable in the screen of Figure 5, reads out the results, places 
them into a table and graphs, changes the variable again, reads out the results 

again, etc. 

After the yellow button is pressed to generate the parametric run, a portion of 
Figure 7 appears. This table can be printed (Figure 8) and graphs can be 
individually accessed by pressing the yellow Weight, Lengths, and Performance 
buttons. Examples of the graphs are shown as Figure 9-11 and an overview of the 

table and graphs is shown in Figure 12. 

The route for the Solid Fuels goes back to Figure 2 and when the Solid Fuels button is 
pressed, Figure 13 is seen. These four buttons invoke the different models used for 
the different solid rocket boosters. They actually use a script and rewrite the 
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equations in the cells shown in Figure 14. The same piece of spreadsheet “real 
estate” is used for each model (except the Medium Motor model) but with new 
equations, titles and words for each different model. Because the solids use 
spreadsheet models, when an input is changed in Figure 14 the result changes 
immediately and there is no “Calculate” button. The “English Units” button changes 
to “Metric Units” when pressed and changes the output (only) to metric. It reverts to 

“English Units” when pressed again. 

If the Graphs button is pressed, Figure 15 appears. This screen allows the user to 
generate par am etric tables and graphs by varying any of the independent variables 
as was described for the LOX/H 2 and the LOX/RP models. The results of the 

parametric run appear after pressing the yellow button with the title of the variables 
chosen and are seen as a portion of Figure 16. The table can be printed as shown in 
Figure 17, and the graphs are accessed, individually, by pressing the Weights, 
Lengths, Mass Fraction, or Performance buttons. They can be printed when 
accessed as shown in Figures 18-21. Figure 22 shows an overview of the table and 

graphs. 

The route of the hybrid rocket booster model goes back through Figure 2 where 
pressing the Hybrid RB button brings up Figure 23. The buttons on Figure 23 work 
the same as those described for the other models. Pressing the Graphs button brings 
up Figure 24 where parametric runs can be made as described for the other models. 
After generating a parametric run a portion of Figure 25 appears. The table can be 
printed or the graphs of Figure 26 accessed and printed as shown in Figures 27-31. 

Tracing the Nuclear Thermal button, pressing it brings up Figure 32 where only the 
Solid Core button is currently active. Pressing Solid Core goes to Figure 33 where 
only the Prismatic Fuel button is active. Pressing it goes to the model for the NERVA 
derived nuclear thermal rocket (Figure 34). This model uses an external Fortran 
code and thus there are no equations under the numbers in the cells. Instead the 
user changes the inputs as desired and then presses the “Calculate” button to 

produce changes in the output. 
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Individ 11111 Models 


Solid Fuel Models 

The design equations are the result of a multivariate regression of a matrix of 
designs produced by Thiokol’s Solid Rocket Motor Automated Design Program 
(ADP). The results of these equations produce solid rocket motor preliminary design 
data within the ranges over which the regression was performed. There are a 
number of assumptions underlying the motor equations. These are factors which 
were held fixed during the creation of the database upon which the design equations 

are based. 


These equations assume T650 graphite epoxy filament wound cases. The web 
fraction, or proportion of the case diameter filled with propellant, was held constant 
at 0.75. Also held constant were the burn rate exponents, propellant densities, and 
the ratio of throat to port diameters for the respective propellant types. Nozzle 
submergence (defined as the nose to boss distance divided by the nose to nozzle exit 
distance) varied from 5 percent to 30 percent. The nozzle length reported in the 
design equations is from the aft case boss interface to the end of the nozzle, i.e., 
external nozzle length. A finocyl grain design was used for all propellant types. The 
finocyl design has a finned grain (typical of the Shuttle Solid Rocket Motor) for part 
of the port length and a simple cylindrical port for the remainder of the port length. 
Silica filled EPDM internal case insulation was used. The booster elements were 
divided into six categories: nose cone, external insulation, forward skirt and 
attachment, aft skirt and attachment, separation system, and miscellaneous which 
includes electronics, instrumentation, raceway, thrust vector control system, etc. 


The motors were all designed to a thrust trace similar to that of Figure 35 (which is 
that of the current space shuttle solid rocket boosters). 

The parametric design equations were formulated as follows: 

• A proprietary Thiokol design program called ADP (Automated Design 
Program) was used to generate a matrix of designs based on a set of input 
data spanning predetermined parameter ranges. 
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• The ADP determined a design for each set of the input parameters by 
using the in-house design codes for the case, insulation, nozzle and 
ballistics and the NASA-LEWIS thermochemical program. 

• Once the matrix of designs was created the Number Cruncher statistics 
package was used to do a multivariate regression on the independent and 
dependent variables. 

The generation of the parametric equations followed two steps. First, the logarithms 
of each independent variable and the dependent variables were taken. A regression 
was performed on the logarithms resulting in a factor with terms to various powers. 
This factor was used in a linear regression along with other terms to give an 
expression for the dependent variable in terms of the independent variables. 
Regression variables were based upon the physics of the problems plus input from 
Number Cruncher as to what the most meaningful variables would be. 

ASRM Prnnellant. The ASRM (ANB3652) type propellant utilizes aluminum as the 
primary fuel with an ammonium perchlorate (AP) oxidizer. The normal 
formulation for ASRM propellant is shown in Figure 36. The predominant exhaust 
species produced by this propellant at the nozzle exit plane are shown in Figure 37. 
This propellant is non-neutralizing with an exhaust containing approximately 21% 
hydrogen chloride. Figures 38 and 39 show sample model outputs, Figure 40 shows 
the equations used, and Figure 41 shows the script used to implement the model. 

Neutralized My Propellant. The DL-H435 propellant is a clean propellant utilizing 
magnesium instead of aluminum as the primary fuel in order to reduce or 
eliminate the hydrogen chloride (HC1). Reference 1 contains a full discussion of this 
propellant. Reference 1 also shows, by means of small motor test results, that this 
propellant will fully neutralize the HC1 byproduct (see Reference 1, Table IV) in the 
exhaust plume. The nominal formulation for DL-H435 magnesium clean propellant 
is shown in Figure 42. The predominant exhaust species produced by the DL-H435 
propellant at the nozzle exit plane are shown in Figure 43. Most of the neutralizing 
reaction occurs in the plume. The amount of the neutralization is a function of 
ambient conditions and mission parameters. The species at the nozzle exit plane, 
however, represents a minimum estimate of total neutralization of HC1. Figures 44 
and 45 show sample model outputs, Figure 46 shows the equations used, and Figure 
47 shows the script used to implement the model. 
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Earlier in the contract a preliminary set of equations was generated using a 
different set of data and different input ranges. Although the new equations replace 
the old ones and the new model breaks the weights into different sets of components, 
the old model went to a lower thrust level. Consequently, the lower thrust results are 
also included in the parametric database as the “Medium Motor” button for the 
neutralized Mg propellent which is the one case where they are available. Figures 
48 and 49 show sample outputs and Figure 50 shows the script used to implement 

the equations. 

Nnn-fThloHnft Propellant. The non-chlorine (PGN/AN/AL) propellant substitutes 
ammonium nitrate for ammonium perchlorate as the primary oxidizer in order to 
eliminate the halogen byproducts of combustion associated with the use of 
ammonium perchlorate (AP) oxidizer and uses PGN (PolyGlycidalNitrate), an 
energetic binder, to achieve performance close to the current RSRM propellant. This 
propellant is in the development stage. Thiokol has overcome the mtyor impediment 
to using PGN binder in large motors, but this type of clean propellant is still 
developmental. The nominal formulation for non-chlorine propellant is shown in 
Figure 51. The predominant species produced by the non-chlorine propellant at the 
nozzle exit plane are shown in Figure 52. Figures 53 and 54 show sample model 
outputs, Figure 55 shows the equations used, and Figure 56 shows the script used to 

implement the equations. 


The hybrid model used included a T650 graphite epoxy filament wound case for the 
fuel grain and an aluminum 2219 oxidizer tank with a pressure feed system. The 
fhel is a combination of HTPB polymer and escorez. The escorez is used to increase 
the fuel’s density. The propellants are shown in Figure 67. Figure 58 shows the 
m flgg fractions of the exhaust species at the nozzle exit for both a mixture ratio (O/F) 
of 1.8 and 2.8. One major advantage of a hybrid system can be seen from the figure: 
there are no chlorine or chlorine compounds in the exhaust. This alleviates many of 
the environmental concerns normally associated with solid rocket motors. The 
hybrid system can also be readily shut down and restarted. 
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The regression process described for the solid models was also used by Thiokol for 
the hybrid designs, although the variables in some cases were different. One notable 
difference was that case diameter was a dependent variable in the hybrid model, 
whereas it was an independent variable in the solid models. A special grain design 
must be used in the hybrid designs. This grain was driven by the performance 
requirements and required a specific diameter just to fit the grain geometry. Two 
new independent variables were added: the maximum oxidizer flux and the 
mixture ratio (oxidizer to fuel ratio). In a solid rocket motor there is no oxidizer flux 
and the oxidizer/fuel ratio is invariant, fixed by the propellant formulation. 

The hybrid model was simpler than the solid models in that all of the subcomponent 
weights and lengths were not calculated. However, the nozzle, total tank/case, 
motor, and stage lengths, as well as O 2 and fuel used weights were calculated. The 

motor mass fraction was also calculated empirically, allowing the calculation of 
total motor weight. The same stage component weight relations were used for both 
the solid and hybrid models. Figures 59 and 60 show sample model outputs, Figure 
61 shows the equations used, and Figure 62 shows the script used to implement the 

equations. 

Liquid a nd Nuclear Models 

Pprfnrmance. The LOX/H 2 , LOX/RP, and Nuclear Thermal models all use the 

same approach for performance prediction. These models employ the JANNAF 
Simplified Performance Prediction Methodology detailed in CPIA Publication 246. 
Starting from ODE (one-dimensional equilibrium) thermochemical codes, tables of 
theoretical specific impulse and C-star are prepared versus chamber pressure, 

mixture ratio, area ratio and inlet propellant enthalpy. When the system is 
modeled, a table-look-up is used to obtain the theoretical Isp and C-star values. The 

chamber temperature is used in place of mixture ratio for cases where there is no 

mixture ratio (e.g., H 2 in the nuclear model). 

Performance efficiency terms are then used to represent the various loss 
mechanisms present within the engine system. The method uses the following 

efficiency terms: 
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C-star: A measure of the combustion and mixing efficiency in the 
combustor. How much of the propellant’s chemical energy is 
actually available for heat. 

Divergence: A measure of the geometric losses associated with a finite 
nozzle having a finite turning angle. How much of the exhaust 
momentum is lost by not being turned parallel to the nozzle axis. 

Boundary Layer: A measure of the drag momentum loss caused by the 
viscous boundary layer within the thrust chamber. 

Kinetic: A measure of kinetic losses during the expansion process. 

Rocketdyne uses a table*look-up to compute kinetic losses based on chamber 
pressure (P c ), mixture ratio, throat area, and area ratio. The tables used are the 

results of detailed ODK (one-dimensional kinetic) code runs for the particular 
propellant combination (or heated H 2 ) being studied. For divergence losses, a curve- 
fit correlation is used which relates divergence efficiency to Pc, nozzle percent 
length, thrust, and area ratio. The boundaiy layer losses are estimated by curve fits 
of the results of rigorous boundary-layer codes (such as BLIMP or TBL). The C-star 
losses are input based on the results of detailed cycle balances. 

The other effects of the thermodynamic cycle is input by using detailed cycle 
balances and then using the resulting thrust chamber mixture ratio instead of the 

engine mixture ratio. 

For the specific LOX/H 2 , LOX/RP, and Nuclear Thermal performance models used 
here, the further effect effects of the thermodynamic cycle throughout the range of 
variables was accounted for by forcing the result at a single design point through a 
known value (e.g., SSME, F-1A), then using a factor on the delivered specific 
impulse at other conditions. 

Weight. The weight for the LOX/H 2 model is based on the reference SSME design 
point. The individual component weights are then scaled with flows, thrust, P c , 
area ratio, etc. The scaling methodology is based on engineering parameters and 
physical quantities. It employes neither point designs nor curve fits. 
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The weight for the LOX/RP model is based on the reference F-1A design point. The 
individual component weights are then scaled with flows, thrust. Pc, area ratio, etc. 

The scaling methodology is based on engineering parameters and physical 

quantities. It employes neither point designs nor curve fits. 

The weights for the nuclear thermal model are based on four design points (at 25K, 
50K, 75K, and 100K) for the reactor and additional components. These points were 
then incorporated into a table lookup and interpolation routine. 

i.lqnid Models . A model of a LOX/H 2 engine using a staged combustion cycle was 
made based on SSME experience, and scaling a set of weights based on a SSME 
baseline. Figures 63 and 64 show examples of model output. 

A model of a LOX/RP engine using a gas generator cycle was made based on F-l and 
F-iA experience, and scaling a set of weights based on F-1/F-1A weights. Figures 65 
and 66 show examples of the model output. 

Nnrlflflr Thprmfll Rocket Model. The design work done at Rocketdyne and 
Westinghouse over the past few years, including work for NASA/LeRC during the 
last year, has produced a series of detailed conceptual designs for nuclear thermal 
rockets based on the NERVA experience base. Those design results were included in 
a table and combined with performance data to produce a model for a NERVA 
derived nuclear thermal rocket. The model is based on using a prismatic fuel form. 
Because this is a concept derived from a specific reactor design and using one fuel 
type (graphite matrix with UC 2 beads with ZrC protective fuel element coating), 
temperature is fixed. Only thrust, chamber pressure, and nozzle area ratio are 
variable. Also the thrust range is limited from 25,000 to 100,000 lbf. Figure 67 shows 

a sample output of the model. 
flanging the Wo rksheet Script 

The worksheet script is a collection of functions which are called by other scripts. It 
is essentially a library. To make changes to the worksheet script, even temporarily, 
requires that the file ‘‘Library” be modified. The procedure is: 
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1. Select any spreadsheet cell . 

2. Go to the “Script” item in the menu bar and select “Unload Script 

and “Library” ...... 

If “Unload Script” is grayed in the menu bar then skip this step 

3. Go to the “Script” item in the menu bar and select “Open Script...” 

4. Use the resulting dialog box to find and open the file “Library” 

5. Make the desired changes 

6. Go to the “File” item in the menu bar and select “Save 

7. Go to the “File” item in the menu bar and select “Close” 

8. Go to the “Script” item in the menu bar and select “Worksheet 

Script” 

9. Highlight the following four lines with the cursor: 

On Activate 

Attach Script “Library” 

Get Script “Library” 

End Activate 

10. Go to the “Edit” item in the menu bar and select “Copy” 

11. Go to the “Edit” item in the menu bar and select “Select All” 

12. Press “Delete” key 

13. Go to the “Edit” item in the menu bar and select “Paste 

14. Go to the “File” item in the menu bar and select “Close” 

15. Press any active button which forces the program to attach the file 
“Library” and make it the current “Worksheet Script”. 
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Propulsion System Database 

The propulsion system database was developed using the Macintosh database 
FileMaker Pro, version 2.0vl (published by Claris). It was developed on a Macintosh 
II fx running system 7 with the tuneup kit and using an Apple 13 inch color 

monitor. 

The propulsion system database consists of two files: “Prop System DB and Prop 
System DB-Pictures”. They can be placed anywhere. The names of the two files must 
not be changed since the first is used as a look-up file by the second, and the second 
is referenced by name in scripts in the first. “Prop System DB” is the main file which 
contains all the data except two picture fields for each record. The two picture fields 
were separated because they are often scanned images using significant amounts of 
memory, and also by having two files, even when many more propulsion systems 
are included in the database, the FileMaker limit of 32 Meg per individual file 

should be avoidable. 

The engine systems currently included in the propulsion system database are: 

Space Transportation Main Engine (STME) 

F-l 

F-1A 

J-2 

J-2S 

SSME 

RD-170 

Integrated Modular Engine (IME) 

Space Shuttle Redesigned Solid Rocket Motor (RSRM) 

NERVA Derived NTR 

To run the propulsion system database double-click on the file “Prop System DB . 
The opening screen of Figure 68 will appear. Press Continue and Figure 69 will 
appear. Pressing on any button will find all propulsion systems of the type 
represented by the button. For example, pressing “Cryogenic” will find only the 
cryogenic engines, pressing “Chemical” will find the cryogenics plus the solids, 
plus the hybrids, etc. Pressing “Propulsion Systems” will find all the records in the 
database. If the user presses a button for which there are no records of that type, a 
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dialog box will appear and if Continue or Cancel is pressed, all records will be found 
instead of the null set of zero records expected. This is a quirk of FileMaker Pro. 



The code is broken into five general classes of propulsion systems based on needing 
different reports for each kind of propulsion system: Liquids, Solids, Hybrids, 
Nuclear, and Exotic. The layouts for Liquids must be different from those for Solids 
since many parameters of one have no meaning for the other (e.g., mixture ratio, 
grain design). This structure is transparent to the user if the buttons supplied on 
every screen for navigation are used. In other words, when a liquid engine is 
selected and the Data Entry button is pressed, the user will go to the liquid data entry 
screen, not the ones available for solids, hybrids, etc. (which are different). 
Nonetheless, the actual internal structure is fairly complex and extensive because of 
the need for different report and entry formats. There are 160 layouts and 71 scripts 

used. 

The result of pressing “Propulsion Systems" in the Main Menu (Figure 69) is shown 
in Figure 70 which is also the list of all currently available propulsion systems. An 
example of using the code is to select one of the propulsion systems from the figure 
(i.e., click on the engine name) and then press one of the five buttons across the top 
of the screen. The Print button simply prints the page (and works the same on all 
other layouts where it is present), the More Data button shows two additional lines of 
information for each propulsion system (thrust, specific impulse, weight, length, 
width, etc.) and is intended as a short technical summary of the systems in the 
database. The button with the “org chart” icon returns to the Main Menu (Figure 
69). The Data Entry button goes to a set of layouts specifically designed to make data 
entry easy by gathering all the fields of data for one system in one place and 
eliminating any that are calculated from other data. 

The Reports button goes to a screen like Figure 71. This screen shows the individual 
reports (layouts) available for each propulsion system. The reports are arranged into 
two sets - each containing the same information, but with some differences in 
arrangement - with one set structured for portrait mode presentation and called 
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“Reports”, and the other structured for landscape mode presentation and called 
“Briefing Charts”. 

Typical use of the code would be to go to the Main Menu screen (Figure 69), press 
“Propulsion Systems”, choose an engine from the resulting Summary screen 
(Figure 70), press the Reports button and then use Figure 71 to look at the data (and 
print any of interest) by pressing individual reports. For example, pressing Engine 
Performance 1” brings up the layout in Figure 72 (for a STME as an example). From 
this (or any other) report the user can print the report, return to the Reports screen, 

or return to the Main Menu. 

After examining the various reports, the user might return to the Summary screen 
(Figure 70) and select another propulsion system and then look at its reports, and so 

on. 


Figures 73-82 present the output for each of the currently available systems. 

Figure 83 shows the field definitions for all fields in the file “Prop System DB”. 
Figure 84 shows the field definitions for all fields in “Prop System DB-Pictures”. Note 
that all of the fields in “Prop System DB-Pictures” except “Engine Name” and two 
picture fields are look-up fields using the data from “Prop System DB” through the 
field “Engine Name”. It is important to remember to force a relook-up in “Prop 
System DB-Pictures” if changes are made to the file “Prop System DB” since relook¬ 
ups are not automatic in FileMaker Pro. 
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Figure 3. Current Cryogenic Models 
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Figure 4. Current Hydrocarbon Models 
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Figure 5. Input/ Output Table for Liquid Models 





























Figure 6. Parametric Data Generation Screen — Liquid Engines 
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Figure 7. Parametric Results Table - Liquid Engines 
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Figure 10. Printed Version of Lengths Chart - Liquid Models 






















































































































































































































































Figure 12. Parametric Data 
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Figure 13. Solid Fuel Models Available 
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Figure 14. Solid Motor Model 

































































































































































































































































































































































































































Figure 15. Parametric Generation Screen - Solid Boosters 
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Figure 16* Parametric Results Table — Solid Boosters 
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Figure 17. Printed Output of Parametric Results - Solid Motors 
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Figure 18. Printed Version of Weights Chart - Solid Rocket Boosters 
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Figure 19. Printed Version of Lengths Chart - Solid Rocket Boosters 























































































































































































































































Figure 20. Printed Version of Mass Fraction Chart - Solid Rocket Boosters 
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Figure 21. Printed Version of Performance Chart - Solid Rocket Boosters 









Figure 22. Parametric Results Available - 


Solid Rocket Boosters 
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Figure 23. Input/Output Table for Hybrid Rocket Booster Model 
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Figure 24. Parametric Data Generation Screen - Hybrid Motors 
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Figure 25, Parametric Results Table - Hybrid Rocket Boosters 





















































































































































































































































































































































































































































Figure 26. Parametric Data Available - Hybrid Rocket Boosters 
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Figure 27. Printed Version of Parametric Results Chart - Hybrid Boosters 
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Figure 28. Printed Version of Weights Chart - Hybrid Rocket Motors 


























































































































































































































































































































































































































































































































































































Figure 29. Printed Version of Lengths Chart - Hybrid Rocket Motors 








































































































































































































































































































































































































































































































































































































































30. Printed Version of Mass Fraction Chart - Hybrid Rocket Motors 
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Figure 31. Printed Version of Performance Chart - Hybrid Rocket Motors 









































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































Figure 32. Reactor Choices 
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Figure 33. Fuel Form Choices 
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Figure 34. Nuclear Thermal Rocket Model 
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Figure 35. C 



Ingredient 

Weight Percent 

Al 

19.0 

AP 

68.86 

HP* 

12.0 

Fe203** 

0.14 


* varied for mechanical property control 
** varied for bum rate control 


Figure 36. Nominal Composition of ASRM Propellant 


Exhaust Product 

Mass Fraction 

CO (g) 

0.2081 

C02 (g) 

0.02786 

CL(g) 

0.00285 

HCI (g) 

0.2093 

FeCI2 (g) 

0.0021 

H(g) 

0.00019 

H2 (g) 

0.01972 

H20 (g) 

0.08455 

AI203 (s & 1) 

0.3587 

N2(g) 

0.08582 


TA3-0322 


Figure 37. Theoretical Exhaust Products at 1,000 psi 
Chamber Pressure Expanded to 14.7 psi 

ASRM Propellant 





Large Motors 


ASRM (ANB3652) Propellant 


14 Jam 


1993 


'V-l'tUV 


Meop, psla 
Initial Area Ratio, Ei 
(Favg)vac. lbf 
Bum Time, Tb, seconds 
Dcase, in 
Push Weight, lbm 
Nose Cone L/D 


1,000 

7.0 

2,590,000 

111 

146 

1 , 000,000 

1.30 


* * 




200 To 2000 
5 To 19 

320 K To 8.9 M| 
60 To 178 
80 To 255 


Note 1: 


Note 2: 


Cases with L/D greater than 5.6 
are difficult to wind w/o Joints. 

MG propellant bum rates 
(Rbo) are tailorable between 
0.334 and 0.806 ips. 


Note 3: Data is being extrapolated 
below range of regression. 

Note 4: Data is being extrapolated 
above range of regression. 




Rbo, in/sec 
(Isp)sl, sec-lbf/lbm 
(Isplvac, sec-lbf/lbm 
(A throat)avg. in A 2 
(R throat)avg, in 
(Favg)sl, lbf 
(Favgjvac, lbf 
L case, in 
L/D case 
L nozzle, in 
Nozzle Exit O.D., in 
Total Length, in 
W propellant, lbm 
W nozzle, lbm 
W insulation, lbm 
W case, lbm 
W igniter, lbm 
W nose cone, lbm 
W ext insul. lbm 
W fwd skirt, lbm 
W ait skirt, lbm 
W separation, lbm 
W misc, lbm 
W SRM, lbm 
W stage, lbm 
W SRB, lbm 
V ideal, ft/sec 
Mass Fraction 
(Impulse)sl, lbf-sec 
(Impulse )vac, lbf-sec 


0.530 
246.54 
269.57 
2,243.0 
26.7 
2,368.679 
2,590,000 
1,187.9 
8.14 

167.5 

138.5 

1.545.3 
1,066,466 

12.500.2 
6,716.0 

26.124.3 

633.6 

3.742.3 

763.5 

2,965.0 

14,659.7 
1,246.8 
1.522.1 
1.112E+06 
2.490E+04 
1.137E+06 
5.995E+03 
9.377E-01 
2.629E+08 
2.875E+08 


Figure38. Printed Output- "Report" - English Units 
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Figure 39 . Printed Output - "Briefing" - Metric Units 








Figure 40. Equations for ASRM 

Propellant Model 



Equations for Stage Components 


Yflrinhle to be 

Calculated Equation 


Nose Cone Weight, lbm 

W Nose Cone - 3395 - 2098N, /d - 0.4705(D C /2) 2 + 2.533* 1(T 5 {(A/2V(A /2) 2 + (N l/d D c ) 2 } 


External Insulation Weight, lbm 

Wkiw-to. - 87 + 0.7243A + 0.1071(A/2) 2 


Fwd Skirt and Attach Weight, lbm 

(2.093 + 0.052760* -0.00008460, 2 ) 

WFwdSklrt “ e 

Aft Skirt and Attach Weight, lbm 

„( 2.89 + 0.063430* -0.000120*) 
WAftSkirt * e 

Separation System Weight, lbm 


W. 


Separation 


0.0011208W JfW 


Misc Weight, lbm 

W misc - -1039 - 0.00204+2.854L c „ e * notzu + 07885(A/2) 2 


TA3-0321 




Large Motor Equations for ASRM Propellant 



0 . 97941 _- 0.3528 


Burning Rate @ 1000 psia, ips Rbo = 4.633(D C /Tb) Meop 
Propellant Weight, lbm w - 0.004530F V T [ b °° 24 E]° 


.07282 


Vacuum specific Impulse, 
lbf-sec/lbm 


T F v T b 

Is P* = TT 


Average Nozzle Throat Area, %Z -14.5 + + 1.039£ - 5F, + 0.3131^ 


Average Nozzle Throat 
Radius, in 


R'=Jt 


Diameter of Nozzle @ Exit, in £) n= 2 J(R t - Q.QQ5T b ) 2 Ei 
Average Sea Level Thrust, lbf F*/ = F v — 3.6757 


Sea Level Specific Impulse, = 

lbf-sec/lbm _ Fv _ 

Boss-Boss Case Length, in L c = 26.26^ 5 D;‘-^^ 001366 


Nozzle Length (Alt Case Boss ^ _ ] 096/1 * 0 5665 £° 33 * 5 
to Nozzle Exit), in_— 

Case length to Diameter Ratio, UD C = 
dim 


Booster Total Length, in 


Igniter Weight, lbm 


Nozzle Weight, lbm 


Ltotai ~ L c + L>n 4 " Nl/dDc 

IVip = 19.1 + 164.3 M Meop-' 076 D^- 5851 - 0.0718X4, 

W„ = 400.6 + 0.02310;% (1 + E,)L„+()A 004.4? **** <Lp 4374 £° 1699 


Internal Case Insulation, lbm ^ = -18.3 + 0.2467ff^ 7199 rJ' 3134 L c ° 173 0.07211/4/ 


Empty Case Weight, lbm 


0.7691 r +01140 nl**9 


= -183.1 + 4.795e - 4F„ + 6.142c - 6l° c ™ 9 Meop° 769l F O e 


Total Rocket Motor Weight, Wjrm = W p + W n + Wj + W c + ^r*n 

lbm - 

Total Stage Component IV„, = »Wc«,, + WExtinction + WF„dShn + ^A/tshr, + + 

Weight, lbm _______ _ __ 

Total Booster weight, lbm W^ - W^ + W stg 

Booster Ideal Velocity, ft/sec ~ , IspM ( 32.18 

Booster Mass Fraction, dim Mfsrb = 


Total Impulse Sea Level, 
Ibf-sec 

Toul Impulse vacuum, 
lbm-sec 


Id = FsiTt 


I v = FyTb 


RMSE - 0.002 
(0.334-0.806) 

RMSE = 2,809 
(198k-3.01M) 

Analytical 

Equation 

RMSE = 10.7 
(315-6830) 

Analytical 
Equation_ 

Analytical 

Equation 

Analytical 

Equation 

Analytical 

Equation 

RMSE = 5.3 
(443-1,640) 

RMSE = 3.6 
(52-373) 

Analytical 

Equation 

Analytical 

Equation 

RMSE = 29 
(77-1,748) 

RMSE = 1,025 
(1,880-46,900) 

RMSE = 105 
(1,690-16,800) 

RMSE = 933 
(2,650-107k) 

Analytical 

Equation 

Analytical Eq. 
(4,200-193K) 

Analytical 

Equation 

Analytical 

Equation 

Analytical 

Equation 

Analytical Eq. 
(45M-728M) 

Analytical Eq. 
(51M-865M) 

1/14/93 













































































































































































































































































































































































































































































































































Figure 41. Script for ASRM Propellant 

Model 


TA3—0328 


27 March 1993 05:48:54 PM Parametric Database/Object 39 script 


Page: 1 


Invalidate On 
Manual Recalc 
Select Range A116 
Window Scale 65% 


{Titles and dates) 

Put" Large Motors" Into A123 

Put "ASRM (ANB3652) Propellant" Into C123 

Put "14 January 1993" Into A124 


{Initial Independent Variable Setup) 


Put 

Put 

Put 

Put 

Put 

Put 

Put 


1000 Into C126 
7 Into C127 


2590000 Into C128 
111 Into C129 
146 Into C130 
1000000 Into C131 
1.3 Into C132 


{Meop, psla) 
{Initial Area Ratio, El) 


{(Favgjvac, lbf) 

{Burn Time. Tb, seconds) 
{Dcase, in) 

{Push Weight, lbm) 
{Nose Cone Length/Diameter) 


{Load Range Information) 

Put "200 To 2000" Into D126 
Put "5 To 19"IntoD127 
Put "320 K To 8.9 M" Into D128 
Put "60 To 178" Into D129 
Put "80 To 255" Into D130 


{Load Range Limit Checks) 

Put "=If(C126<200. 1,0)" Into K126 
Put "=If(C126>2000, 1.0)" Into K127 
Put "=If (C127<5, 1.0)" Into K128 
Put "=If (C127>19, 1.0)" Into K129 
Put "=If (C128<320000, 1,0)" Into K130 
Put "=If (C128>8900000, 1.0)" Into K131 
Put "=If (C129<60, 1.0)" Into K132 
Put "=If (C129>178, 1.0)" Into K133 
Put "=If (C130<80, 1,0)" Into K134 
Put "=If (C130>255, 1.0)" Into K135 


{Load Results Formulas. RMSE and correlation limits, and percent error) 


e-j<i*rfn^n/ri291 A 0 9794)*fC126 A ('0.3528)))*L122" Into G126 
R '-lnG^ 26<0 3^l4’L122!”Note 3 '.in0126>0.806*Ll22,"Note 4”.0.002<L122)>- into H126 


Put ""Into 1126 


Put "=G128*G131/(C128*L126)" Into G127 
Put "N/A" Into HI27 
Put ""Into 1127 



27 March 1993 05:48:55 PM Parametric Database/Object 39 script 


Page: 2 


Put*"=(C128*C129/(G 138/Ll23))*L125" Into G128 
Put "N/A" Into H128 
Put ""Into 1128 

'l&^-U5?172 8-((0138/H23)-0.9902HC126-(.0.9551)HC129*(-0.9776)) 

P», 4-M0.7-L122-L122,]- Into H 

Put ""Into 1129 
{(R throat)avg} 

Put "=SqRt(G 129/ 3.141593)" Into G130 
Put "N/A* Into HI30 
Put ""Into 1130 

Put'"»(C 128-11.54535*0136*G 136/(L122*L 122))*L 126* Into G131 

Put "N/A" Into H131 
Put *" Into 1131 

{(Favg)vac) 

Put "=C128*L126" Into G132 
Put "N/A" Into HI32 
Put"" Into 1132 

Put"" Into 1133 

{L/D case} „, „ . 

Put "=G133/(C130*L122)" Into G134 

Put "=If(G134>5.6,""Note 1"",""N/A"")" Into H134 

Put"" Into 1134 

£ P? Z fi le io«*rr i97*n ^38S1 , (1G129/(L122*L122)) A 0.5665)) , L122" Into G135 

Put **If(G? 35 <^ 2 *L 12 ^/V^ote ^*MnG 135>373'L122.'"Note 4".3.6*L122))"IntoH135 

Put"" Into 1135 

^rM2^RU«G130/L122.0.005"C129) A 2)*C127))*L122" Into G136 

Put "N/A" Into HI36 
Put ""Into 1136 

pS t ^G133+G135+(C132*C130) , L122" Into G137 
Put "N/A" Into HI37 
Put "" Into 1137 

Put"" Into 1138 



27 March 1993 05:48:56 PM Parametric Database /Object 39 script 


Page: 3 


3S8WB®»bs8*r* 

Put ""Into 1139 

S!t < ^lTjfo U 2467-((ai38/L123l*0.7199nCl29*0^134)-((0133/L122)-(-0.1737)) 

^■■IflOl^oVlWJty’MM/^Not^S’MflGl^l'o^lSSCM^?. 123. "Note 4".105*L123)1" Into HI40 
Put ""Into 1140 

{W case} 

:BS 

Put"" Into 1141 

{ ^tM l l t 9 r i + (164 3*(G138/(C129*L123)) A 1.273)*(C126 A (-1.076))*(C 130 A (-0.5851)) 

"3S 9 2S 

Put"" Into 1142 
(W nose cone} 

" = + 533E-^*U(cf 130/2^S qR t((\ CH 30/ 2) A 2)+((C132"C 1 30 ) A 2))) A 2))"L 123" Into G143 

Put "N/A" Into HI43 
Put"" Into 1143 

{ ^t C "^( e 87+o!724 1 ^ ,t C > 130+0.1071*((C130/2) A 2))*L123" Into G144 
Put "N/A" Into HI44 
Put ** Into 1144 

{ i^t f ”‘(E^(2*9 a 5 l ?0 C 05276-C130.0.0000846-C130-C130))-L123-into 0145 
Put "N/A" Into HI45 
Put"" Into 1145 

K(^U S 89“o C S6343-C130-0.00012-C130-C130irL123- Into G14S 
Put "N/A" Into HI46 
Put"" Into 1146 

{W separation system} 

Put "=0.0011208*G 149" Into G147 
Put "N/A" Into HI47 
Put "* Into 1147 

Put'^**- C 1039-0.00204 , (0149/L123)+2.854*HQ133+0135)/L122)+0.07885*((CI30/2) A 2)) , L123" Into G14 

Put "N/A* Into HI48 
Put"" Into 1148 


{W SRM} 
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Put "=Sum(G138..G142)" Into G149 
Put"" Into HI 49 
Put ""Into 1149 


(W stage} 


Put "=Sum(G143..G 148)" Into G150 io*j a*" """"ii" into HI50 

Put"=IflG150<4200*L123.""Note3"".IflG150>193000*L123. Note 4 . )) intomou 

Put"" Into 1150 


{WSRB} 

Put "=G149+G150" Into G151 
Put"" Into H151 
Put ""Into 1151 

Put^=R32. 18*(Q128/L125)*Ln((C131+(G151 /L123)I/(C131+(G151/L123M0138/L123))))'L124" Into C15 

Put "N/A" Into HI52 
Put"" Into 1152 


{Mass Fraction} 

Put "=G138/G151" Into G153 
Put "N/A" Into HI53 
Put"" Into 1153 


{(Impulse)sl} 

Put "=G131*C129" Into G154 

Put "=IflG 154<45000000*L1 26,""Note 

Put ** Into 1154 


3 "",IflG 154 > 728000000 *L 126, ""Note 4"".""""))" Into H154 


{(Impulse)vac} 

•°m 1 af5l<S1000000<Xl°26.”Note 3".IR0155>865000000-L126."Note 4“.—))• Into H155 
Put"" Into 1155 


{Load Notes} 

Put "Note 1:" Into A135 

Put "Cases with L/D greater than 5.6" Into C135 
Put "are difficult to wind w/o Joints." Into C136 

Put "Note 2:" Into A138 
Put "MG propellant bum rates" Into Cl38 
Put "(Rbo) are tailorable between" Into C139 
Put "0.334 and 0.806 ips." Into C140 

Put "Note 3:" Into A142 

Put "Data Is being extrapolated" Into Cl42 

Put "below range of regression." Into C143 

f 

Put "Note 4:" Into A145 

Put "Data Is being extrapolated" Into Cl45 

Put "above range of regression." Into C146 


Automatic Recalc 
Invalidate Off 



Ingredient 

Weight Percent 

R-45M (1 % A02246)* 

13.83 

IPDI* 

0.86 

HX-752 

0.30 

TPB 

0.01 

Mg 

22.0 

AP** 

62.80 

Fe203** 

0.20 


* varied for mechanical property control 
** varied for burn rate control 


Figure 42. Nominal Composition of Magnesium Clean Propellant 


Exhaust Product 

Mass Fraction 

CO (g) 

0.2860 

C02 (g) 

0.0162 

CL (g) 

0.0002 

HCI (g) 

0.1505 

FeCI2 (g) 

0.0032 

MgCI2 (g) 

0.052 

H (g) 

Insignificant 

H2(g) 

0.0289 

H20 (g) 

0.0415 

MgO (s) 

0.3412 

N2(g) 

0.0766 

Other 

0.0005 


Figure 43. Theoretical Exhaust Products at 1,000 psi 
Chamber Pressure Expanded to 14.7 psi 
Magnesium Clean Propellant 
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Large Motors 

14 January 1993 


Neutr alizin g Mg (DL-H435) Propellant 




mi 






Meop. psia 
Initial Area Ratio. £1 
(Favg)vac. lbf 
Burn Time. Tb, seconds 
Dcase. in 
Push Weight, lbm 
Nose Cone L/D 

Te rms 

Note 1: 


1.000 

7.0 

2.590.000 

111 

146 

1 , 000.000 

1.30 


200 To 2000 
5 To 19 
320 K To 8.9 Mi 
60 To 178 
80 To 255 


Cases with L/D greater than 5.6 
are difficult to wind w/o Joints. 


Note 2: MO propellant bum rates 

(Rbo) are tailorable between 
0.34 and 0.81 ips. 

Note 3: Data is being extrapolated 
below range of regression. 

Note 4: Data is being extrapolated 
above range of regression. 


Rbo. in/sec 
(Isp)sl. sec-lbf/ibm 
(lsp)vac, sec-lbf/lbm 
(A throatlavg. in A 2 
(R throat)avg, in 
(Favgjsl. lbf 
(Favgjvac. lbf 
L case, in 
L/D case 
L nozzle, in 
Nozzle Exit O.D.. In 
Total Length, in 
W propellant, lbm 
W nozzle, lbm 
W insulation, lbm 
W case, lbm 
W igniter, lbm 
W nose cone, lbm 
W ext insul. lbm 
W fwd skirt, lbm 
W aft skirt, lbm 
W separation, lbm 
W misc, lbm 
W SRM, lbm 
W stage, lbm 
W SRB. lbm 
V ideal, ft/sec 
Mass Fraction 
(Impulse)sl. lbf-sec 
(Impulsejvac. lbf-sec 


i RMSB 

0.534 
243.05 
266.17 
2,278.9 
26.9 
2,365.069 
2,590,000 

1.337.3 
9.16 

169.7 

139.6 

1.696.8 
1,080,110 

12.648.0 

7.128.9 
28,823.5 

630.7 

3.742.3 
763.5 

2,965.0 
14,659.7 
1,265.8 
1.920.0 
1.129E+06 
2.532E+04 
1.155E+06 
5.959E+03 
9.354E-01 
2.625E+08 
2.875E+08 


Figure 44 
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Figure 46. Equations for Mg Clean 

Propellant Model 


TA3-0326 



Equations for Stage Components 


Variable to be 
Calculated filiation 

Nose Cone Weight, lbm 

W Noie Co** - 3395 - 2098 N Ui - 0.4705(A/2) 2 + 2.533xl0" 3 {(A/2 W (A /2 f 


External Insulation Weight, lbm 

Wwn.. - 87+ 0.7243A + 0.1071(A/2) 2 


Fwd Skirt and Attach Weight, lbm 

„ (2.095 4-0.05 276D C -0.00008461)*) 

WpwJSklrt " * 

Aft Skirt and Attach Weight, lbm 


Wjif t skirt m e 


(2.89 ♦ 0.06343D* -Q.OOO120* 2 ) 


Separation System Weight, lbm 


Wsepamiion m 0.00112081^ 


Misc Weight, lbm 

W Mi$e - -1039 - 0.00204+2.854I*„, * *,«u + 0.07885(A/2) 2 


TA3—0321 



Large Motor Equations for Magnesium Based Propellant 



0 . 97881 i _- 0.3614 


Burning Rate @ 1000 psia, ips Rbo = 4.957(D c /7a) Meop 
Propellant Weight, lbm w = 0.005028 F? M,3 Tl 0,a7 EJ 0 - i6to Meop 


- 0.01470 


Vacuum specific Impulse, j spv - hit 
Ibf-sec/lbm__ ' ____ 

Average Nozzle Throat Area, A r = - 15.2 + 157.4 fV% 9S99 \feop 0 9404 7^ + 1 .021E 


-5Fv + 0.3134r* 


Average Nozzle Throat 
Radius, in 


A,= J T 


Diameter of Nozzle @ Exit, in d„ = 2 j(R,-0.005T b ) 2 E, 
Average Sea Level Thrust, Ibf t s i = F v — 3.675TtOn 


Sea Level Specific Impulse, Isp,* = 
Ibf-sec/lbm 


IspvFtl 

Fv 


Boss-Boss Case Length, in ^ __ _q 3 + 28.23^ + 8.696F- 4 M+0.009766Meop 

Nozzle Length (Aft Case Boss - -14.87 + \M6^E° f 29665225 -0.002486A/eop+0.4242F, 
to Nozzle Exit), in 

Case length to Diameter Ratio, £/£> c = ^ 

dim _ - 


-0.02445T 6 


Booster Total Length, in 


Igniter Weight, lbm 


Nozzle Weight, lbm 


I total ~ Lc En 4" Nu^D c 

W<„ = 2 \Q + (i22\Meop' ,n ' rl A]' yiH Di >mi 


= 588.7 + 0.02444 J/ii (1 +E,)L„ +0.0604&4?’ ff ? 4703£ ? lS ” 


Internal Case Insulation, lbm W, = -19.5 + 0.2395< 7022 7^- 0.060244, 

Empty Case Weight, lbm \y c = -277.8 + 5.822£ - 4F, + 6.142£ - bL^Meop* T754 F^° 1 u °d; 8575 

Total Rocket Motor Weight, + fF* + + W ign 

lbm 

Total Stage Component W„ t = W NmCm + + W FwdSUn + WtfSUr, + 

Weight, lbm __________ 

Total Booster weight, lbm W^ - Wxrm + W Jtg 

Booster Ideal Velocity, ft/sec ~ . lspy In ( ,*£% -) 32.18 


Booster Mass Fraction, dim = 


Total Impulse Sea Level, 
Ibf-sec 

Total Impulse vacuum, 
Ibm-sec 


I si = F rf r* 


/v = FyTb 


RMSE = 0.002 
(0.34-0.81) 

RMSE = 3,466 
(198k-3.0lM) 

Analytical 

Equation 

RMSE = 11 
(329-6,820) 

Analytical 

Equation 

Analytical 

Equation 

Analytical 

Equation 

Analytical 

Equation 

RMSE = 5 
(492-1,825) 

RMSE = 3 
(46-374) 

Analytical 

Equation 

Analytical 

Equation 

RMSE =28 
(76-1,754) 

RMSE = 1184 
(1,9 44-47,600) 

RMSE = 107 
(1,830-17,200) 

RMSE = 1,066 
(2,840-117k) 

Analytical 

Equation 

Analytical Eq. 
(4,300-193K) 

Analytical 

Equation 

Analytical 

Equation 

Analytical 

Equation 

Analytical Eq. 
(44M-716M) 

Analytical Eq. 
(51M-854M) 


1/14/93 


















































































































































































































Figure 47. Script for Mg Clean 

Propellant Model 
(Large Motors) 
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Page: 1 


Invalidate On 
Manual Recalc 
Select Range A116 
Window Scale 65% 


{Titles and dates} 

Put" Large Motors" Into A123 

Put "Neutralizing Mg (DL-H435) Propellant" Into Cl23 
Put "14 January 1993" Into A124 


{Initial Independent Variable Setup} 


Put 

Put 

Put 

Put 

Put 

Put 

Put 


1000 Into Cl26 
7 Into Cl27 


{Meop, psla} 
{Initial Area Ratio, El} 


2590000 Into C128 
111 Into C129 
146 Into C130 
1000000 Into C131 
1.3 Into Cl32 


{(Favg)vac, lbf} 

{Bum Time, Tb, seconds} 
{Dcase, In} 

{Push Weight, lbm} 
{Nose Cone Length/Diameter} 


{Load Range Information} 

Put "200 To 2000" Into D126 
Put "5 To 19" Into D127 
Put "320 K To 8.9 M" Into D128 
Put "60 To 178" Into D129 
Put "80 To 255" Into D130 

{Load Range Limit Checks} 

Put "=If(C126<200, 1,0)" Into K126 
Put "=If (C126>2000. 1,0)" Into K127 
Put "=If (C127<5, 1,0)" Into K128 
Put "=If (C127>19, 1,0)" Into K129 
Put "=If (C128<320000, 1,0)" Into K130 
Put "=If (C128>8900000, 1.0)" Into K131 
Put "=If (C129<60, 1,0)" Into K132 
Put "=If(C129>178, 1,0)" Into K133 
Put "=If (C130<80, 1.0)" Into K134 
Put "=If (C130>255, 1,0)" Into K135 

{Load Results Formulas, RMSE and correlation limits, and percent error} 

{Rbo} 

Put "=(4.957*((C130/C129) A 0.9788)*(C126 A (-0.3614)))*L122" Into G126 

Put "=If{G126<0.34*L 122,""Note 3"",Ifl[G126>0.81*L122,""Note 4"".0.002*L122))" Into H126 

Put"" Into 1126 
{(Isp)sl} 

Put "=G128*G131 /(C128*L126)" Into G127 
Put "N/A" Into HI27 
Put "" Into 1127 

{(Isp)vac} 

Put "=(C128*C129/(G138/L123))*L125" Into G128 
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Put "N/A" Into HI28 
Put ""Into 1128 


{(A throat )avgV 

Put "=(- 15 . 2 + 157 . 4 *((G 138 /L 123 ) A 0 . 9899 )*(C 126 A (- 0 . 9404 ))*(C 129 A (- 0 . 9776 )) 

+(1.027E-5)*C 128+0.3134*0129)*L122*L 122" Into 0129 
Put "=If[G129<329*L122*L 122,""Note 3"",If(G129>6820*L122*L122,""Note 4"",11*L122*L122))" Into H12 

Put ""Into 1129 


{(R throat)avg} 

Put "=SqRt(G 129/3.141593)" Into G130 
Put "N/A" Into HI30 
Put ""Into 1130 

{(Favg)sl} 

Put "=(C128-11.54535*G136*G136/(L122*L122))*L126" Into G131 
Put "N/A" Into H131 
Put "" Into 1131 


{(Favg)vac} 

Put "=C128*L126" Into G132 
Put "N/A" Into HI32 
Put ""Into 1132 

{L C3.SC} 

Put "=(-0.3+28.23*((G 138/Ll 23)/(Cl 30*0130)) A 0.9794+(8.696E-4) 

*(G 138/Ll23)/C 129+0.009766*0126)*L122" Into G133 
Put "=If[G133<492*L 122,""Note 3"".If(G133>1825*L122,""Note 4"",5*L122))" Into H133 
Put "" Into 1133 


{L/D case) 

Put "=G133/(C130*L122)" Into G134 

Put "=IKG134>5.6,""Note 1"",""N/A"")" Into H134 

Put ""Into 1134 


(L nozzle} 

Put "=(-14.87+ 1.8468*(C127 A 0.2966)*((G129/(L122*L122)) A 0.5225) 

-0.002486*0126+0.4242*0127-0.02445*0129)*L122" Into G135 
Put "=If(G135<46*L 122,""Note 3"".If(G135>374*L122.""Note 4"",3*L122))" Into H135 
Put"" Into 1135 


(Nozzle Exit Dla} 

Put "=( 2 *SqRt(((G 130/LI 22-0.005*0129) A 2)*C127))*L 122" Into 0136 
Put "N/A" Into HI36 
Put ""Into 1136 

(Total Length} 

Put "=G 133+G135+(Cl 32*C 130)*L 122" Into 0137 
Put "N/A" Into HI37 
Put"" Into 1137 


(W propellant} 

Put "=((0.005028*0128 A 0.9953)*(C129 A 1.0027)*(C127 A (-0.06843))*(C126 A (-0.01470)))*L123" Into G138 
Put "=If(G 138> 198000*L 123,""Note 4"",If(G138<3010000*L123.""Note 3"",3466*L123))" Into H138 
Put ""Into 1138 
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^* tr "^+^ l ^6048*UG 4 l1^9f(L I 122 1, L 2 lV2)l'0 : 6'750r((G138/L^23r0 3 4703)*?cl27"0.1592))"LI23" Into G139 
p*-.mSSSlSSi-L/S“Soti r"l«6l3~4Wtl2S.“M«t.4”.1184al23)rlnt0H139 
Put ""Into 1139 

Put C M-19 S 5+O t 2395*((G138/L123) A 0.7022)*(C129 A 0.3056)*((G133/L122)''(-0.1211)) 

Put 4"". 107*L123))" into H140 

Put ""Into 1140 

{W case} 

** 33 4 /L?22r0 8298HC126 A 0.7754)*(C 128 A 0.1110)*(C130 A 1.8575))*L123" Into G141 

Put "*If(G141<2840*L123.""Note 3"".If(G141>117000*L123.""Note 4"\1066*L123))" Into H141 

Put “ Into 1141 

SMlfo+O 2218-lC126-0.1277)-((0129/(L122‘L122))-1.33X4)-(C130-(-0.6535)))-L123-IntoG142 

K! •:!«GU?<76-L 123.“Note 3-Mit0142»1754*L123.”Not. 4-.28-L123))- Into H142 
Put"" Into 1142 

(W nose cone} 

~+ {^.533IS- 5)* (U C13 0/2^*55 qRt(((C130/2) A 2)+((C132*C 130) A 2))) A 2))*L 123" Into G143 

Put "N/A" Into HI43 
Put"" Into 1143 

SIt C "^(87^0. I 724 1 3*C > r30+0.1071*((C130/2) A 2))*L123" Into G144 
Put "N/A" Into HI44 
Put"" Into 1144 

^t r MEx k pl2*9 a 5?0 C 05276-C130.0.0000846-C130-C13011-L123- Into 0145 
Put "N/A" Into HI45 
Put"" Into 1145 

Put^=(Exp( 2!8^)+C) C 06343*C 130-0.00012*C130*C130))*L 123" Into 0146 

Put "N/A" Into HI46 
Put"" Into 1146 

{W separation system} 

Put "=0.0011208*0149" Into G147 
Put "N/A" Into HI47 
Put "" Into 1147 

Put™=?- C 1039-0.00204 , (Q149/L123I+2.854 , ((0133+01351/Ll22)+0.07885*((Cl30/2I , '2)) , L123" Into G14 

Put "N/A" Into HI48 
Put"" Into 1148 


{W SRM} 

Put "=Sum(G138..G142)" Into G149 
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Put ""Into HI 49 
Put ""Into 1149 


{W stage} 

Put "=Sum(Q 143..0148)" Into G150 
Put "=If(G150<4300*L 123, ""Note 3"" 


,IflG150>193000*L123. 


""Note 4"" 


Put ""Into 1150 


"""*))" Into HI50 


(W SRB} 

Put *=G149+G150" Into G151 
Put"" Into H151 
Put"" Into 1151 


Put^*UJ 2 . 18 , (G 128 /L 125 )*Ln((C 131 +(G 151 /L 123 ))/(C 131 +(OI 51 /L 123 MQ 138 /L 123 )))) , L 124 " Into 015 

Put "N/A* Into HI52 
Put"" Into 1152 

{Mass Fraction} 

Put "*G138/G151" Into G153 
Put "N/A" Into HI53 
Put"" Into 1153 


{(Impulse)sl} 

-:m 1 Gl 1 M< 1 44000000'u26."Note 3".If<0154>716000000-L126."Note 4' 

Put"" Into 1154 


n nn 


""))" Into H154 


{(Impulse)vac} 

™ •■mG155<S10000o"o I "* < °26!”Note 3",m0155>S54000000*L126.“Note 4' 
Put"" Into 1155 


n nn 


""))" Into HI55 


{Load Notes} 

Put "Note 1:" Into A135 

Put "Cases with L/D greater than 5.6" Into Cl35 
Put "are difficult to wind w/o Joints." Into C136 


Put "Note 2:" Into A138 
Put "MG propellant burn rates" Into Cl38 
Put "(Rbo) are tallorable between" Into Cl39 
Put "0.34 and 0.81 lps." Into C140 

Put "Note 3:" Into A142 

Put "Data is being extrapolated" Into Cl42 

Put "below range of regression." Into Cl 43 

Put "Note 4:" Into A145 

Put "Data Is being extrapolated" Into Cl45 

Put "above range of regression." Into Cl46 


Automatic Recalc 
Invalidate Off 



Medium Motors 

18 August 1992 


Neutralizing Mg (DL-H435) Propellant 




■:5 y * ■i £ ? M2 y.' >i JM 


v v^* *kI*.*.V v y'v?, • • 


I ':**• v- M5M 


Meop, psia 

2,000 

Initial Area Ratio, El 

10 

(Favgjvac, lbf 

250.000 

Bum Time, Tb, seconds - 

40 

Dcase, in 

70 

Push Weight, lbm 

200.000 

- 


900 

To 

2000 

7 

To 

19 

62K 

to 

328K 

30 

To 

105 

30 

To 

105 



Note Is Cases with L/D greater than 5.6 
are difficult to wind w/o joints. 

Note 2: MG propellant bum rates 

(Rbo) are tailorable between 
0.34 and 0.81 ips. 

Note 3: Data is being extrapolated 
below range of regression. 

Note 4: Data is being extrapolated 
above range of regression. 



< M: •:ir '■ <• X » -;. j-f; -.*> * ‘ ^ MM} ‘! ‘ ■ • • 

* v*>x--5'.5 <S >x»^ j$>fi L2 M I;M 

< ;i v \ Ssk & && i iii< i i< 1 ■ 

RMSE 

v;j'* 

Rbo, in/sec 

0.573 

Note 4 

2.995 

(Isp)sl, sec-lbf/lbm 

253.43 

N/A 

N/A 

(Ispjvac, sec-lbf/lbm « 

271.88 

0.595 

0.217 

(A throat)avg, in A 2 

115.4 

1.57 

0.872 

(R throat)avg. in 

6.1 

N/A 

N/A 

(Favgjsl, lbf 

233.035 

N/A 

N/A 

(Favglvac, lbf 

250.000 

N/A 

N/A 

L case,in 

217.5 

1.519 

0.466 

L/D case 

3.11 

N/A 

N/A 

L nozzle, in 

24.7 

0.94 

2.282 

Nozzle Exit O.D., in 

38.3 

N/A 

N/A 

Total Length, in 

347.2 

N/A 

N/A 

W propellant, lbm 

36.781 

N/A 

N/A 

W nozzle, lbm 

540.7 

21 

2.358 

W insulation, lbm 

567.2 

13.42 

1.33 

W case, lbm 

403.5 

66.95 

2.64 

W igniter, lbm 

24.3 

2.9 

5.74 

W SRM, lbm 

, 38,317 

71.7 


W stage, lbm 

1,556 

94.8 

4.3 

W SRB. lbm 

39.873 

121.5 


V ideal, ft/sec 

. 1,456 

N/A 

N/A 

Mass Fraction 

0.922 

N/A 

N/A 

(Impulse)sl. lbf-sec 

9.321E+06 

N/A 

N/A 

(Impulse)vac. lbf-sec « 

1.000E+07 

N/A 

N/A 


Figure 48. Printed Output - "Report" - English Units 
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Figure 49. Printed Output - “Briefing" - Metric Units 












Figure 50. Script for Mg Clean 

Propellant Model 
(Medium Motors) 


TA3-0330 



Page: 1 


27 March 1993 05:58:49 PM Parametric Database/Object 240 script 

Invalidate On 
Manual Recalc 
Select Range A57 
Window Scale 65% 

{Titles and dates} 

Put" Medium Motors" Into A64 

Put "Neutralizing Mg (DL■ H435) Propellant Into 064 

Put "18 August 1992" Into A65 

{Initial Independent Variable Setup} 

Put 2000 Into C67 {Meop, psia} 

Put 10 Into C68 {Initial Area Ratio, El} 

Put 250000 Into C69 {(Favgjvac, lbf} 

Put 40 Into C70 {Bum Time, Tb, seconds} 

Put 70 Into C71 {Dcase, In} 

Put 200000 Into C72 {Push Weight, lbm} 


{Load Range Information} 

Put "900 To 2000" Into D67 
Put "7 To 19" Into D68 
Put "62K to 328K" Into D69 
Put "30 To 105" Into D70 
Put "30 To 105" Into D71 


{Load Range Limit Checks} 

Put "=If (C67<900, 1.0)" Into K67 
Put "=If (C67>2000, 1.0)" Into K68 
Put "=If (C68<7, 1.0)" Into K69 
Put "=If(C68>19. 1.0)" Into K70 
Put "=If (C69<62000, 1,0)" Into K71 
Put "=If (C69>328000. 1.0)* Into K72 
Put "=If (C70<30, 1.0)" Into K73 
Put "=If(C70>105. 1.0)" Into K74 
Put "=If (C71<30, 1.0)" Into K75 
Put "=If (C71>105, 1,0)" Into K76 


{Load Dependent Terms and Intermediate Results} 

Put "=C71/C70" Into M76 

Put "=C67*M76" Into M78 

Put "=(C67/1000) A 0.39" Into M80 

Put "=C69*C70" Into M82 

Put "=C69/C67" Into M84 

Put "=M84/C68" Into M86 

Put "=(G79/L3)/C70" Into M88 

Put "=(G79/L3)/{C71*C71)" Into M90 

Put "=(G71/L2)*C68" Into M92 

Put "=((SqRt(G70)+SqRt(G70*C68))/2*G76)/(L2*L2)" Into M94 
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27 March 1993 05:58:50 PM Parametric Database /Object 240 script 

Put "=(G79/L3)/C70*(26.0314*C70/(C7 1 *C7 1 )+0.000046398)" Into M97 
Put **LN((C72+(G86/L3))/(C72+(G86-G79)/L3))" Into M100 


{Load Results Formulas, RMSE and correlation limits, and percent error} 


K } , n A e, R , + o 3i293*M76+0 00001733331*M78-0.37345*M80)*L2" Into G67 

S{ -:lnGl7<0 3o!-L2 9 ?-No«3 ? -.mG67>0.532-L2”No te 4**.0.0125*L2»* Into H67 
Put 2.995 Into 167 


{(Isp)sl} 

Put "=G72*C70/G79" Into G68 
Put "N/A" Into H68 
Put "N/A" Into 168 


pKmS 468*3 47093*C68-0. 079374*C68*C68+0,000010827*069-0.026726*C70)*L5" Into G69 

St "=I8G69<26 1*L5/"Note 3",IflG69>286*L5,"Note 4-.0.595-L5H" Into H69 
Put 0.217 Into 169 


M M8 255?+0 0000009095*M82+0.72572*M84+0.58737*M86)*L2*L2" Into G70 

"sIflG70<46.5*L2*L2.""Note 3"".IflG70>368.2*L2*L2.""Note 4«".1.57*L2*L2))" Into H70 
Put 0.872 Into 170 


{(R throatjavg} 

Put "=SqRt(G70/3.141593)" Into G71 
Put "N/A" Into H71 
Put "N/A" Into 171 


/(Favc)sU 

Put "=(C69-14.7*C68*G70/(L2*L2))*L6" Into G72 


Put "N/A" Into H72 
Put "N/A" Into 172 


{(Favg)vac} 

Put "=C69*L6" Into G73 
Put "N/A" Into H73 
Put "N/A" Into 173 


Put "-{6 918+26 0782*M90+10.5873*M80-0.049018*C70+0.000008449*071*C71*C71)*L2" Into G74 

St ■*Ifl074<207"L2,—Note 3"MHG74>462"L2.""Note 4". 1.519-L2))" Into H74 
Put 0.466 Into 174 


{L/D case} 

Put "=G74/(C71*L2)" Into G75 

Put "=IflG75>5.6,""Note 1"",""N/A"")" Into H75 

Put "N/A" Into 175 


St’M-26 0584*6.33835*1071/L2J+0.16796"M92-0.00l205"C67+0.46Ot 5*C68]*L2" Into 076 

Si -:i«G76<5 3*L2.”Note 3**,BIG76>89.2*L2.**Note 4**.0.94*L21)* Into H76 
Put 2.282 Into 176 
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27 March 1993 05:58:51 PM Parametric Database/Object 240 script 
{Nozzle Exit Dla> 

Put **2*G71*SqRt(C68)" Into 077 
Put "N/A" Into H77 
Put "N/A" Into 177 


(Total Length) 

Put "=G74+G76+( 1.5*C71 )*L2" Into G78 
Put "N/A" Into H78 
Put "N/A" Into 178 


{W propellant) 

Put "=(C69*L6)*C70/G69" Into 
Put "=If(G79>105000*L3,""Note 4"".If(G79<15000*L3," Note 



Put "N/A" Into 179 


3"\""N/A""))" Int0 H79 


Sit*"»(36^9679+0.000011857*M82+0.1818*M94+1.41166*C70+9.22776*G76/L2)*L3" Into G80 
P^t "=IflG80<221*L3.""Note 3"".IflG80>1819*L3.""Note 4"".21*L3))" Into H80 
Put 2.358 Into 180 


P^t^=M a 70.9 } 12+0.09922*C71*C71+M97+1.41144*C70)*L3* Into G81 

Put "=If(G81<260*L3,""Note 3"",If(G81>2085*L3,""Note 4"",13.42*L3))" Into H81 
Put 1.33 Into 181 


PutM-143 337+0.030 13*C71*C71+3.5389*C71+0.0006026*C69+0.0000222242*G79/L3)*L3" Into 082 

Put "=IflG82<394*L3.*"Note 3"".Ifl(G82>5676*L3.""Note 4"",66.95*L3))" Into H82 
Put 2.64 Into 182 


P^t 1 M15!6963+0.00014004*(G70/{L2*L2))/(C71*C71)+51. B 1973*M88/C67-0.0074883"C67)*L3"Into G83 

Put "*If(G83<16.13*L3,""Note 3"".IAG83>106.5*L3.""Note 4" ,2.9 L3)) Into H83 
Put 5.74 Into 183 


(W SRM) 

Put "sSum(G79..G83)" Into G84 
Put "=71.7*L3" Into H84 
Put" " Into 184 


Put "=(-502 96+0.16858*C71*071+0.001425*C71*C71*C71+3.07233*(G74+G76)/L2)*L3" Into G85 
Put "=IflG85<674*L3.""Note 3"".IflG85>4240*L3.""Note 4"\94.8*L3))" Into H85 
Put 4.3 Into 185 


(WSRB) 

Put "=G84+G85" Into G86 
Put "=121.5*L3" Into H86 
Put"" Into 186 

{V Ideal) 

Put "=((G69/L5)*32.18*M100)*L4" Into G87 
Put "N/A" Into H87 
Put "N/A" Into 187 
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Page: 4 


{Mass Fraction} 

Put "=G79/G86" Into G88 
Put "N/A" Into H88 
Put "N/A" Into 188 

{(Impulse)sl} 

Put "=G72*C70" Into G89 
Put "N/A" Into H89 
Put "N/A" Into 189 

{(Impulse)vac) 

Put "=G73*C70" Into G90 
Put "N/A" Into H90 
Put "N/A" Into 190 


{Load Notes} 

Put "Note 1:" IntoA76 

Put "Cases with L/D greater than 5.6" Into C76 
Put "are difficult to wind w/o Joints." Into C77 

Put "Note 2:" Into A79 
Put "MG propellant bum rates" Into C79 
Put "(Rbo) are tallorable between" Into C80 
Put "0.34 and 0.81 ips." Into C81 

Put "Note 3:" Into A83 

Put "Data is being extrapolated" Into C83 

Put "below range of regression." Into C84 

Put "Note 4:* Into A86 

Put "Data is being extrapolated" Into C86 

Put "above range of regression." Into C87 

Automatic Recalc 

Invalidate Off 



Ingredient 

Weight Percent 

PGN 

35.0 

A! 

25.0 

AN** 

40.0 

♦ 


* varied for mechanical property control 
** varied for bum rate control 


Figure 51. Nominal Composition of Non-Chlorine Clean Propellant 


Exhaust Product 

Mass Fraction 

CO (g) 

0.236 

C02 (g) 

0.0175 

AJOH 

0.00001 

% 

AI02H 

0.00001 

A1203 (1 & S) 

0.472 

OH (g) 

0.00017 

H (g) 

0.00023 

H2 (g) 

0.0274 

H20 (g) 

0.0653 

NO (g) 

0.00001 

N2 (g) 

0.1811 


Figure 52. Theoretical Exhaust Products at 1,000 psi 
Chamber Pressure Expanded to 14.7 psi 
Non-Chlorine Clean Propellant 





Large Motors 
1 4 Janu ary 1993 
: lndeTP 
Meop, psla 
Initial Area Ratio, El 
(Favg)vac, ibf 
Bum Time, Tb, seconds 
Dcase, in 
Push Weight, lbm 
Nose Cone L/D 


Propellant 





■is, * ^ \» > 


1,000 

200 To 2000 

Rbo, in/sec 

- 

0.540 

0.002 

7.0 

5 To 19 

(Isp)sl, sec-lbf/lbm 

■ 

244.10 

N/A 

2.590.000 

320 K To 8.9 M 

(Isp)vac, sec-lbf/lbm 

m 

267.69 

N/A 

111 

60 To 178 

(A throat)avg. ln A 2 

■ 

2.312.2 

11 

146 

80 To 255 

(R throat)avg, in 

m 

27.1 

N/A 

1.000.000 


(Favg)si. Ibf 

u 

2,361.706 

N/A 

1.30 


(Favg)vac, Ibf 

m 

2,590.000 

N/A 

■i;v •. ;.4 ;;r;: 

:i!...• • • • 'i- - •» 

>::::K> • • !Jj>jr -yl:k'h: JSiSff: 

* 9 v • r >• : ’>r 

L case, in 

m 

1 % 230»4 

5 



L/D case 

m 

8.43 

Note 1 

Cases with L/D greater than 5.6 

L nozzle, in 

m 

171.1 

3 

are difficult to wind w/o Joints. 

Nozzle Exit O.D., in 

m 

140.6 

N/A 



Total Length, in 

m 

1.591.3 

N/A 

MG propellant bum rates 

W propellant, lbm 

m 

1,073.951 

3,048 

(Rbo) are tailorable between 

W nozzle, lbm 

m 

13.442.8 

567 

0.33 and 0.818 lps. 

W insulation, lbm 

m 

7,003.6 

241 



W case, lbm 

■ 

26,915.1 

909 

Data is being extrapolated 

W igniter, lbm 

m 

639.2 

22 

below range of regression. 

W nose cone, lbm 

m 

3.742.3 

N/A 



W ext insul, lbm 

m 

763.5 

N/A 

Data is being extrapolated 

W fwd skirt, lbm 

m 

2.965.0 

N/A 

above range of regression. 

W aft skirt, lbm 

m 

14,659.7 

N/A 



W separation, lbm 

m 

1,257.5 

N/A 



W misc, lbm 

m 

1.634.1 

N/A 



W SRM. lbm 

m 

1.122E+06 




W stage, lbm 

m 

2.502E+04 




W SRB. lbm 

m 

1.147E+06 




V ideal, ft/sec 

m 

5.975E+03 

N/A 



Mass Fraction 

m 

9.363E-01 

N/A 



(Impulse)sl, Ibf-sec 

■ 

2.621E+08 




(Impulse)vac, Ibf-sec 

m 

2.875E+08 



Figure 53. Printed Output - "Report" - English Units 
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Figure 54. Printed Output - "Briefing" - Metric Units 

















Figure 55. Equations for Non-Chlorine 

Clean Propellant Model 


TA3-0327 


p^ifl tinns for Stage Components 


Variable to be 
Calculated Fffllfltfon 


Nose Cone Weight, lbm 

WNost Cont 


m 3395 - 2098 N t ,4 - 0.4705(A/2) 2 + 2.533x10' 5 {(A /2)/(A/2) 2 


External Insulation Weight, lbm 

- 87 + 0.7243A +0.1071(A/2) : 


Fwd Skirt and Attach Weight, lbm 

(2.095 ♦ 0.052760,-0.00008460,*) 

Wpw&klrt " « 

Ait Sk irt and Attach Weight, lbm 

.(2.89 + O.O63430, -0.000120*) 
W A f,SktH - e 

Separation System Weight, lbm 

WseparatioH m 0.0011208IV, 


Misc Weight, lbm 

2 

W miiC - -1039 - 0.00204W, m + 2.854* »<>«/« +0.07885(D c /2) 


TA3-0321 









( \ 0 9793 

f-) Meop -° 3713 

Propellant Weight, lbm w = 642.470.00446 


Vacuum specific Impulse, 
lbf-sec/lbm 


T Kn 
Isp v = 


Average Nozzle Throat Area, ^, = -11.5 + \%1 + 1.923 E - 5F, + 0.34617* 


Average Nozzle Throat 
Radius, in 


R, = Jt 


Diameter of Nozzle @ Exit, in [) n -2 l(R,~ 0.005 T k ) 2 E, 
Average Sea Level Thrust, lbf Fj/ = F, — 3.675 E t TlDn 


lsp*Fti 


Sea Level Specific Impulse, Isp v j = ~ 
lbf-sec/lbm F 


Boss-Boss Case Length, in ^ _ .39 + 26.79[^]° 9 ™ +0.0008531 M +0.008615A/<?o/? 

Nozzle Length (Aft Case Boss - -16.3 + 1.892£? 2937 ^° 5206 - 0.002267Meop + 0.4660£* 

to Nozzle Exit), in ___.____ 

Case length to Diameter Ratio, JJD C = 

dim e ___ 


-0.023407* 


Booster Total Length, in 


Igniter Weight, lbm 


Nozzle Weight, lbm 


Lt total — L»c + Lff + Mf/jDc 

W lgn = 16.6 + 0.2810 Meop 01,67 A? 6,64 

W n = 327.3 + 0.02671 (1 +£,)£„ + 0 . 16641 ? 6079 111 


-0.06609 


Internal Case Insulation, lbm _ -19.4 + 0.2425H^ 7148 Tj 3103 Lj° 1566 +A, 

Empty Case Weight, lbm = - 122.9 + 5.15 5£ - 4F V + 6 .142F - 6 L? 8250 Meop 07721 F/ > ' 

Total Rocket Motor Weight, = W p + W n + W k + W c + W ign 

lbm — 

Total Stage Component W sig = W NostCong + WExtlnndation + W FwdShrt + ^AjiShrt + WStpartton + W Misc . 

Weight, lbm 

Total Booster weight, lbm W^ = W^ + W stg 

Booster Idea! Velocity, ft/sec 

Booster Mass Fraction, dim Afjfjr* = ^ E - 


Total Impulse Sea Level, 
lbf-sec 

Total Impulse vacuum, 
lbm-sec 


I* = FsiT b 


U = FJ b 


RMSE = 0.002 
(0.33-0.818) 

RMSE = 3,048 
(2O0k-3M) 

Analytical 

Equation 

RMSE = 11 
( 334-9,760) 

Analytical 

Equation 

Analytical 

Equation 

Analytical 

Equation 

Analytical 

Equation 

RMSE = 5 
(457-1,688) 

RMSE = 3 
(50-380) 

Analytical 

Equation 

Analytical 

Equation 

RMSE = 22 
(77-2,922) 

RMSE = 567 
(2.6k-49.8k) 

RMSE = 241 
(1,700-16,800) 

RMSE = 909 
(2,720-110k) 

Analytical 

Equation 

Analytical Eq. 
(4,300-193K) 

Analytical 

Equation 


Analytical 

Equation 

Analytical 

Equation 

Analytical Eq. 
(45M-720M) 

Analytical Eq. 
(52M-861M) 


1/14/93 






















































































































































































































Figure 56. Script for Non-Chlorine Clean 

Propellant Model 


TA3-0331 
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27 March 1993 06:05:16 PM Parametric Database/Object 45 script 

Invalidate On 
Manual Recalc 
Select Range A116 
Window Scale 65% 


{Titles and dates} 

Put" Large Motors" Into A123 

Put "Non-Chlorine (PGN/AN/AL) Clean Propellant" Into C123 
Put "14 January 1993" Into A124 


{Initial Independent Variable Setup} 


Put 

Put 

Put 

Put 

Put 

Put 

Put 


1000 Into C126 
7 Into Cl27 


2590000 Into Cl28 
111 Into Cl 29 
146 Into C130 
1000000 Into C131 
1.3 Into C132 


{Meop, psia} 
{Initial Area Ratio, El} 


{(Favg)vac, lbf} 

{Burn Time, Tb, seconds} 
{Dcase, in} 

{Push Weight, lbm} 
{Nose Cone Length /Diameter} 


{Load Range Information} 

Put "200 To 2000" Into D126 
Put "5 To 19"IntoD127 
Put "320 K To 8.9 M" Into D128 
Put "60 To 178" Into D129 
Put "80 To 255" Into D130 


{Load Range Limit Checks} 

Put "=If (C126<200, 1,0)" Into K126 
Put "=If (C126>2000, 1,0)" Into K127 
Put "=If (C127<5. 1.0)" Into K128 
Put "=If (C127>19, 1.0)" Into K129 
Put "=If (C128<320000, 1,0)" Into K130 
Put "=If (C128>8900000, 1,0)" Into K131 
Put "=If (C129<60. 1.0)" Into K132 
Put "=If(C129>178, 1,0)" Into K133 
Put "=If (C130<80, 1,0)" Into K134 
Put "=If(C130>255, 1.0)" Into K135 

{Load Results Formulas. RMSE and correlation limits, and percent error} 


{Rbo} 


Put "=15 362*((C130/C129) A 0.9793)*(C126 A (-0.3713)))*L122" Into G126 

Put "=IflG126<0.33*L122,""Note 3"".If(G126>0.818*L122.""Note 4"",0.002*L122)) Into 


Put "=If[G126<0 
Put ""Into 1126 


H126 


{(Isp)sl} 

Put "=G128*G131/(C128*L126)" Into G127 


Put "N/A" Into HI27 
Put "" Into 1127 


Put "=(C128*C129/(G138/L123))*L125" Into G128 
Put "N/A" Into HI28 
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27 March 1993 06:05:18 PM Parametric Database/Object 45 script 
Put"" Into 1128 


Put*"=(°f l^+*187.8*((G138/L123) A 0.9949)*(C126 A (-0.9708))*(C129 A (-0.9838)) 

Put "=YflG 9 129^ 4"",11*L122*L122))" Into H12 

Put "" Into 1129 


{(R throat)avg} 

Put "=SqRt(G129/3.141593)" Into G130 
Put "N/A" Into HI30 
Put"" Into 1130 


Puf^=(C128*l 1.54535*0136*G136/(L122*L122))*L126" Into G131 


Put "N/A" Into H131 
Put"" Into 1131 


{(Favg)vac} 

Put "sC128*L126" Into G132 
Put "N/A" Into HI32 
Put"" Into 1132 


Put "=(-3.0+26.79*((G138/L123)/(C130*C130)) A 0.9735+(8.531E-4) 
*(G 138 /LI 23)/Cl 29+0.008615*C126)*L122" Into G133 
Put "»IflG133<457*L122.""Note 3"".IflG133>1688*L122.""Note 4"".5 


•L122))" Into H133 


Put"" Into 1133 


{L/D case} 

Put "=G133/(C130*L122)" Into G134 

Put "=IflG134>5.6.""Note 1"",""N/A"")" Into H134 

Put "* Into 1134 


Put 1 " > =(^16.3+1.892*(C127 A 0.2937)*((G129/(L122*L122)) A 0.5206) 

-0. 002267*C1 26 + 0 .4660*C127-0.02340*C129)*L122" Into G135 
Put "=IflG135<50*L122,""Note 3"".If(G135>380*L122,""Note 4 .3 L. 122)) IntoH135 

Put"" Into 1135 


Put Z "=\ < 2*^SqR?(UG130/L122-0.005*C129) A 2)*C127))*L122" IntoG136 


Put "N/A" Into HI36 
Put"" Into 1136 


{Total Length} 

Put "=G133+G135+(C132*C130)*L122" Into G137 
Put "N/A" Into HI37 
Put"" Into 1137 


(W propellant} 

Put "=(642.4+(0.004462*(C128 A 0.9955)*(C129 A 1.0027)* 

(C127 A (-0.07409))*(C126 A 0.002841)))*L123" Into G138 
Put "=If{G138<200000*L123,""Note 3"".If[G138>3000000*L123.""Note 
Put"" Into 1138 


4"",3048*L123))" Into H138 
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(W nozzle} 

P “* 

Put "=If(G139<2600*L 123,""Note 3"",If(G139>49800*L123,""Note 4 ,567*L123)) Into 
Put ""Into 1139 

pI[t C "^19 S 4lo U 2425*({G138/L123) A 0.7148)*(C129 A 0.3103)*((G133/L122) A (-0.1566)) 

+ffG129/(L122*L122)) A 0.06609))*L123" Into G140 
Put "=If(G140<1700*L123,""Note 3"",IflG140>16800*L 123,""Note 4"",241*L123)) Into H140 

Put"" Into 1140 
{W case} 

PUt ‘Is mE-a™GU3 4 /U22r0.8250|-(CI26'0.7722)-(C128-0.l 10ei-(C130- 1.869II-L123- Into 0141 

Put "=IflG141<2720*L123.""Note 3"".If(G141>l 10000*L123,""Note 4"".909‘L123))" Into H141 
Put"" Into 1141 

Kt£ns r 6*0 2810 *IC 126*0.1167)*((G129/(L122*L122I)"1.287)*(C130'(-0.6164)))*L123“ Into 0142 

£{ “«lf(G142<77 L123,"Note 3".lVai42>2922<L123.”Not« 4~.22M.123)>' Into H142 
Put ""Into 1142 

{W nose cone} 

PUt = + (2^. 5 3*3E^-5)*U((^ 13 0/^S)*SqRt(K Cl 30/ 2) A 2)+((C132"C 130) A 2))) A 2))"L 123" Into G143 

Put "N/A" Into HI43 
Put ""Into 1143 

{W external Insulation} • 

Put "=(87+0.7243*C130+0.1071 *((C 130/2) A 2))*L 123 Into G144 

Put "N/A" Into HI44 
Put ""Into 1144 

St f "I?E S ^(2.09 a 5^ C 05276*C 130-0.0000846’C 130*C 130))*L 123" Into G145 

Put "N/A" Into HI45 
Put"" Into 1145 

(W aft skirt & attach} . „, . _ 

Put "=(Exp( 2 . 89+0.06343*C 130-0.00012*C130*C130))*L123" Into G146 

Put "N/A" Into HI46 
Put"" Into 1146 

{W separation system} 

Put "=0.0011208*G149" Into G147 
Put "N/A" Into HI47 
Put"" Into 1147 

Put "=(-1039-0.00204*(G149/L123)+2.854*((G133+G135)/L122)+0.07885*((C130/2) 2))*L123 Into G14 

Put "N/A" Into HI48 
Put "" Into 1148 


{W SRM} 

Put "=Sum(G138..G142)" Into G149 
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Put"" Into HI49 
Put " M Into 1149 


{W stage} 

Put "*U?O^0<4300M^23/^lote 3"",in0150>193000*L123.""Note 
Put ""Into 1150 


j n t 0 HI50 


{W SRB} 

Put "=G149+G150" Into G151 
Put"" Into H151 
Put ""Into 1151 

Put^«^2.18*(O128/L125) , Ln((C131+(0151/L123))/lC131+(0151/L123)-(G138/L123))))*L124" Into 0151 

Put "N/A" Into HI52 
Put"" Into 1152 

{Mass Fraction) 

Put "=G138/G151" Into G153 
Put "N/A" Into HI53 
Put"" Into 1153 


{(Impulse)sl) 

Put "=G131*C129" Into G154 

Put "=If(G 154<45000000*L 126,""Note 

Put"" Into 1154 


3"",IfIG154>720000000*L 126, ""Note 



""""))" Into H154 


{(Impulse)vac) 

Put "»C128*C129*L126" Into G155 

Put “=IflG155<52000000*L126,""Note 

Put"" Into 1155 


3*",If(G155>861000000*L126,""Note 4"".""""))" Into H155 


{Load Notes) 

Put "Note 1:" Into A135 

Put "Cases with L/D greater than 5.6" Into Cl35 
Put "are difficult to wind w/o Joints." Into C136 

Put "Note 2:" Into A138 
Put "MG propellant bum rates" Into Cl38 
Put "(Rbo) are tailorable between" Into Cl39 
Put "0.33 and 0.818 ips." Into C140 

Put "Note 3:" Into A142 

Put "Data is being extrapolated" Into Cl42 

Put "below range of regression." Into C143 

Put "Note 4:" Into A145 

Put "Data is being extrapolated" Into Cl45 

Put "above range of regression." Into Cl46 


Automatic Recalc 
Invalidate Off 



Ingredient 

Weight Percent 

Fuel Grain 

Escorez 

60.0 

HTPB 

40.0 

Oxidizer 

0 2 

100.0 


Figure 57. Nominal Composition of Hybrid Propellant 



Figure 58. Theoretical Exhaust Products at 1,000 psi Chamber 

Pressure Expanded to 14.7 psi 
Hybrid Propellant. 


TA3-0421Flg 




Large Motors 
|23 March 1993 


Hybrid Propellants 


Meop, psia 

500 

500 

To 1500 

Initial Area Ratio, El 

8 

8 

To 20 

(Favg)vac, lbf 

1,267.506 

280 K 

To 21 M 

Bum Time, Tb, seconds - 

45 

45 

To 200 

Nose Cone L/D 

1.3 

0.5 

To 3.0 

Max Ox Flux, lbm/a-in*2 

0.2 

0.2 

To 1.0 

Avg MR, O/F 

1.8 

1.8 

To 2.8 

Push Weight. lbm 

1.000.000 






Note 1: Data is being extrapolated 
below range of regression. 

Note 2: Data is being extrapolated 
above range of regression. 


D nozzle exit, in 
(Isp)sl. sec-lbf/lbm 
(Isp)vac, sec-lbf/lbm 
(A throat)avg. ln A 2 
(R throat)avg, in 
(Favg)sl, lbf 
(Favgjvac, lbf 
L tank & case, in 
L/D case 
L nozzle, in 
D motor, in 
Total Length, in 
W oxidizer, lbm 
W fuel, lbm 
W propellant, lbm 
W nose cone, lbm 
W ext lnsul, lbm 
W fwd skirt, lbm 
W aft skirt, lbm 
W separation, lbm 
W misc, lbm 
W HRM, lbm 
W stage, lbm 
W HRB, lbm 
V ideal, ft/sec 
Mass Fraction 
(Impulse)sl. lbf-sec 
(Impulse )vac. lbf-sec 


132.8 
238.76 
284.48 

1.765.4 
23.7 

1,063.817 

1,267.506 

803.5 
4.91 

125.7 

163.5 
1.141.9 

128,454 

71,363 

199.818 

6.307.4 

921.5 
4,724 

23,240 

261 

1,666 

232.514 

3.712E+04 

2.696E+05 

1.568E+03 

8.594E-01 

4.787E+07 

5.704E+07 


r 3i 

* " asxa. 


Figure 59. Printed Output - "Report" English Units 
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Figure 60. Printed Output - "Briefing" - Metric Units 







































Figure 61. Equations for Hybrid Rocket 

Booster Model 


TA3—0422 


Equations for Stage C 


niiiiitmsj 


its 



Calculated 


TCqiifltinn 


Nose Cone Weight, Ibm 

W Nott CoHt - 3395 - 2098 N„ d - 0.4705(A/2) 2 + 2.533xl0- 5 {(A/2)/(A/2) 2 + (N, /d D c ) 2 } 


External Insulation Weight, lbm 

WeuU'Mo' - 87 + 0.7243A +0.107KA/2) 2 

Fwd Skirt and Attach Weight, lbm 

72.095 + 0 . 052760 ,- 0 . 00008460 ,*) 

W FwdS klH " « 

Aft Skirt and Attach Weight, lbm 

72-89 + 0 . 063430 ,- 0 . 000120 ,*) 

“ e 

Separation System Weight, lbm 

Wstptratio» m 0.0011208W jm 


Misc Weight, lbm 

W m „ e - -1039 - 0.00204W jr * +2.854t c „, * HOttU + 0.07885(A/2) 2 


TA3-0321 




Large Hybrid Motor Design Equations 



Vacuum specific Impulse, 
Ibf-sec/lbm 


Isp v = 314.4- %242X+QA932X 1 \where X = Ln y^' 1414 Ef 9 *0//^® s 7T UM 


RMSE = 1.9 
(280.3-317.8) 



Average Nozzle Throat 
Radius, in 


_ , , q _,-f0.5l23 fW),007919 

R, = 1.266 + O.mZMeop- 0m5 F v T b 


RMSE = 0.9 
(7.5-93.9) 



Impulse vacuum, Ibm-sec / v = F V Tb 


Analytical 

Equation 



Diameter of Nozzle @ Exit, in £, n - 2 J(R,-0.005Ti,) 2 E 


Analytical 

Equation 



Average Sea Level Thrust, Ibf Fji — F v ~~ 3.675 7 


Analytical 

Equation 



Sea Level Specific Impulse, 
lbf-sec/lbm 


Isp*Fti 


hpvsl = f 

^ o v ^,+0 5991 _ o 48567^)1652 

Hybrid Roctet Motor diameter, _ 59.8 + 0.005607X- 1.136e- 9X 1 \\where X-t y r<? max l b 


Analytical 

Equation 

RMSE = 3 
(84-636) 



External Nozzle Length, in 


Lno* = 190 


- !.568-=,-0.6560. , 

.1-294.4^-205.3^+407.9* 3 ; X = E° l3V R, F. Meop 


0.6478 RMSE =53 
(45-1005) 



Total Length of Tank Plus 
Case, in 


Luc = 16.7 + 2.860F O ^ 7 F: 04W 7^^D-^’A*o P -»“^O//- 0 ^ 


RMSE =71 
(654-3255) 



Hybrid Rocket Motor length, in Lhrm = L n03 +L T+ c 


Analytical Eq. 
(746-3845) 



Booster Total Length, in Lhxb — Lhrm + NlidD m 


Analytical 

Equation 



Fuel Used Weight, Ibm 


fVju.1 = 0.9966FJV[/5p,(l + OIF)\ 


Analytical 

Equation 



0, Used Weight, lbm 

Total Weight Propellant Used, 
lbm 


Wo 2 = WjuOlF 
W p = Wjm + Wot 


Analytical 

Equation 


Analytical 

Equation 


Hybrid Rocket Motor Mass 
Fraction, dim 


M/hkm = -5.324 + 6.696AT- 0.7267e -6A" 1 ; where 

X = Meop 01 > 83 £ -0.001051 Fo ^M09 0/^.00359970.004171^0 0007922 


RMSE = 0.012 
(0.73-0.91) 



Total Hybrid Rocket Motor 
Weight, lbm 


Total Stage Component 
Weight, lbm 


Whrm = W p / A if hum 

W„. = W Nol «;on. + W ExUnjulaiion + W Fw jsUn + W^sbrf + Ws^anim + 


Analytical 

Equation 



Total Hybrid Rocket Booster = Whum + W, tg 

weight, lbm _ 


Analytical Eq. 
(4,300-193 K) 

Analytical 
Equation 


Booster ^eal Velocity, fttec m IspM 32.18 


Analytical 

Equation 



Total Impulse Sea Level, 
Ibf-sec 


l si = FsiTb 


Analytical 

Equation 






































































































































































































































































Figure 62. Script for Hybrid Rocket 

Booster Model 
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Manual Recalc 
Select Range A422 
Window Scale 65% 


{Titles and dates} 

Put" Large Motors" Into A408 
Put "Hybrid Propellants" Into C408 
Put "23 March 1993" Into A409 


{Initial Independent Variable Setup} 


Put 

Put 

Put 

Put 

Put 

Put 

Put 

Put 


500 Into C411 
8 Into C412 


{Meop, psla} 
{Initial Area Ratio, El} 


1267506 Into C413 
45 Into C414 
1.3 Into C415 
0.2 Into C416 
1.8 Into C417 
1000000 Into C418 


{(Favg)vac, lbf} 

{Burn Time, Tb, seconds} 

{Nose Cone Length/Diameter} 
{Max Oxidizer Flux} 

{Average Oxidizer/Fuel Ratio, O/F} 
{Push Weight, lbm} 


{Load Range Information} 

Put "500 To 1500" Into D411 
Put "8 To 20" Into D412 
Put "280 K To 21 M" Into D413 
Put "45 To 200" Into D414 
Put "0.2 To 1.0" Into D416 
Put "1.8 To 2.8" Into D417 


{Load Range Limit Checks} 

Put "=If (C411<500, 1.0)" Into K411 
Put "=If(C411> 1500. 1,0)" Into K412 
Put "=If (C412<8, 1.0)" Into K413 
Put "=If (C412>20, 1,0)" Into K414 
Put "=If (C413<280000, 1,0)" Into K415 
Put "=If (C413>21000000, 1.0)" Into K416 
Put ”=If (C414<45, 1,0)” Into K417 
Put "=If (C414>200, 1,0)" Into K418 
Put "=If (C416<0.2, 1,0)" Into K419 
Put "=If (C416>1.0, 1.0)" Into K420 
Put "=If (C417<1.8, 1,0)" Into K421 
Put "=If (C417>2.8, 1,0)" Into K422 


{Load Results Formulas, RMSE and correlation limits, and percent error} 
{D nozzle exit} 

Put "=(2*SqRt((((G415/L402)-0.005*C414) A 2)*C412))*L402" Into G411 
Put "N/A" Into H411 
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Put"" Into 1411 
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Put*"=LN((C413 A 0.1414)*(C412 A 3.938)*(C417 A 3.685)*(C414 A (-0.2526)))" Into M413 
Put "=(314 4-8.242*M412+0.4932*M413*M413)*L405" Into G413 

Put "=If(G413<280.3«L405,""Note l"",If(G413>317.8*L405,""Note 2"M.9*L405)) B Into H413 
Put ""Into 1413 

{(Isp)sl} 

Put "=((G413*G416)/(C413*L406))" Into G412 
Put "N/A* Into H412 
Put"" Into 1412 


Put ”^( 1 ^ 1 ^ 6 ^ 0.37 18*C411 A (*0.5035))*(C413 A 0.5123)*C414 A 0.007919)*L402" Into G415 

Put "=If(G415<7.5*L402.""Note l"".If(G415>93.9*L402.""Note 2 ,0.9 L402)) IntoH415 
Put ""Into 1415 


{(A throat)avg> 

Put "=3.141593*G415*G415" Into G414 
Put "N/A" Into H414 
Put"" Into 1414 


{(Favg)sl) 

Put "=(C 413-1 1.54535*G411*G411/(L402*L402))*L406" Into G416 


Put "N/A" Into H416 
Put"" Into 1416 


{(Favg)vac} 

Put "=C413*L406" Into G417 
Put "N/A" Into H417 
Put ""Into 1417 


Put^=U6.7+2.86*(C416 A 0.1767)*(C413 A 0.4396)*(C414 A 0.4159) , ((G421/L402) A (-0.3175)) 

*(C411 A (-0.002468))*(C417 A (-0.3836)))*L402" Into G418 
Put "=If(G418<654*L402,""Note l"".If(G418>3255*L402.""Note 2"\71*L402))" Into H418 

Put ""Into 1418 


{L/D case} 

Put "=G418/G421" Into G419 
Put "N/A" Into H419 
Put "" Into 1419 


Put "=(C412 A 0.1327)*((G415/L402) A 1.568)*(C413 A (-0.6560))*(C411 A 0.6478)" Into M420 
Put "=( 190. 1-294.4*M420-205.3*M420*M420+407.9*M420 A 3)*L402" Into G420 
Put "=If(G420<45*L402,""Note l"",If(G420>1005*L402 > ""Note 2"",53*L402))" Into H420 
Put"" Into 1420 

Put D "=(C443 A 0.5991)*(C416 A (-0.4856))*(C414 A 0.1652)" Into M421 

Put "=(59.8+0.005607*M421-1.136E-9*(M421 *M421 ))*L402" Into G421 

Put "=If(G421<84*L402,""Note l"".If(G421>636*L402,"*Note 2"",3*L402))" Into H421 

Put"" Into 1421 
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{Total Length} 

Put "=G420+G418+C415*G421" Into G422 
Put "N/A" Into H422 
Put"" Into 1422 

{W oxidizer} 

Put "=G424*C417" Into G423 
Put "N/A" Into H423 
Put"" Into 1423 


Put "=(0.9966*C413*C414/((G413/L405)‘( 1+C417)))*L403" Into G424 

Put "N/A" Into H424 
Put"" Into 1424 

{W propellant} 

Put "=G423+G424" Into G425 
Put "N/A" Into H425 
Put"" Into 1425 


{W nose cone} 

Put "=(G421/L402)" Into M426 

PU ' " = +^.533E-E^)*(((M426'/2)*SqRtIUfc4426/^)''2)+(lC4I5 , M426I A 2H)"2))*L403" Into G426 

Put "N/A" Into H426 
Put"" Into 1426 


St M87^0 I 7243 “m 4 ) 26 + 0.1071-((M426/2)-2))*L403- Into 0427 


Put "N/A" Into H427 
Put"" Into 1427 


p^"= < (Exp(2X>95+o!o5276*M426-0.0000846*M426*M426)) , L403" Into G428 

Put "N/A" Into H428 
Put"" Into 1428 


Put "=(Exp(2.89+0.06343*M426-0.00012*M426*M426))*L403" Into G429 
Put "N/A" Into H429 
Put "" Into 1429 


{W separation system} 

Put "=0.0011208*G432" Into G430 
Put "N/A" Into H430 
Put"" Into 1430 


Put™=f-1039-0.00204*(G432/L403)+2.854*((G418+G420)/L402)+0.07885*((M426/2)'‘2))*L403" hito G4 

Put "N/A" Into H431 
Put"" Into 1431 

{WHRM} 

Put "=G425/G436" Into G432 
Put"" Into H432 
Put"" Into 1432 
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{W stage} 

Put "=Sum(G426..G431)" Into G433 
Put "=IflG433<4300*L403.""Note 1"" 


,If[G433>193000*L403,""Note 


Put"" Into 1433 


2"",""""))" Into H433 


(WHRB) 

Put "*G432+G433" Into G434 
Put "* Into H434 
Put"" Into 1434 


P^t"*m.l8*(G413/L405)‘Ln((C418+(G434/L403))/(C418+(G434/L403)-(G425/L403))))*L404 

Put "N/A" Into H435 
Put"" Into 1435 


Put"“(C4lV*(-0 01 183))-(C412 -(-0.001051»-(C416*0.002209) , (C417 (-0.003599)) 

.(C 414-0 604171)’(|G438/L406r 1-0.0007922)1- Into M436 
Put "—5 324+6 696*M436-(0.7267E-6)*M436*M436" Into G436 
Put "=IflG436<0.73.""Note l"".If[G436>0.91.""Note 2"",0.012))" Into H436 

Put"" Into 1436 


{(Impulse)sl) 

Put "=G416*C414" Into G437 
Put "N/A" Into H437 
Put"" Into 1437 


{(Impulse)vac) 

Put "=C413*C414*L406" Into G438 
Put "N/A" Into H438 
Put"" Into 1438 


{Load Notes} 

Put "Note 1:" Into A423 

Put "Data Is being extrapolated" Into C423 

Put "below range of regression." Into C424 

Put "Note 2:" Into A426 

Put "Data Is being extrapolated" Into C426 

Put "above range of regression." Into C427 

Automatic Recalc 
Invalidate Off 


Into G43J 



Liquid Engines 


Independent: Terms * 


Major Variables 

Vacuum Thrust, klbf 
Chamber Pressure, psia 
Mixture Ratio, O/F 
Maximum Area Ratio 


LOX/H2 


512.845 

3,277.0 

6.011 

77.0 


26 January 1993 



100 to 2,000 
1,000 to 5,000 
4 to 8 
10 to 400 


Area Ratio of Nozzle Attachment 
Nozzle Percent Length, % 
Gimbal Angle, degrees 
C* Efficiency 

Fuel Inlet Enthalpy, kcal/mole 


5.0 

80.0 

11.0 

0.98450 

-1.270 


70 to 140 
0 to 15 
0.85 to 0.999 
-2.154 to 1.856 



. > A 1 • • - • ** ■ \ * 




Value 



Value 


Vacuum Thrust, klbf 
Vacuum Isp, sec-lbf/lbm 
SL Thrust, klbf 
SL Isp, sec-lbf/lbm 
ODE C-Star. ft/sec 
L-Star. in 

ODE Isp. sec-lbf/lbm 
Energy Release Efficiency 
Kinetic Efficiency 
Divergence Efficiency 
Boundary Layer Efficiency 
Engine Efficiency 


512.845 

452.98 

418.772 

369.89 

7.753.62 

30.40 

468.92 

0.98450 

0.99993 

0.99283 

0.98904 

0.96666 


Throat Diameter, in 
Throat Area, in *2 
Chamber Length, in 
Nozzle Exit Diameter, in 
Engine Diameter, in 
Nozzle Length, in 
Engine Length, in 


Turbomachinery 

Preburners 

PB Hot Gas Manifold 

Thrust Chamber 

Nozzle 

Gimbal Bearing 
Valves and Controls 
Controller and Mount 
POGO System 
Propellant Ducts 
Pressurization System 
Other Engine Systems 


10.3 

83.2 

12.3 

90.3 
96.0 

119.5 

168.0 



1,725.0 

229.0 

558.0 

859.0 

1,250.0 

105.0 

722.0 

85.0 

94.0 

867.7 

89.0 

228.0 


Total Dry Weight 


6,811.7 


Figure63. Printed Output - "Report" - English Units - L0X/H2 
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Liquid Engines 

Independent Terms 

Major Variables 

Vacuum Thrust, klbf 
Chamber Pressure, psia 
Mixture Ratio, O/F 
Maximum Area Ratio 


LOX/RP 


26 January 1993 




Area Ratio of Nozzle Attachment 
Nozzle Percent Length. % 
Glmbal Angle, degrees 
C* Efficiency 

Fuel Inlet Enthalpy, kcal/mole 


• f 5 : *;: i 5 

Vacuum Thrust, klbf 
Vacuum Isp, sec-lbf/lbm 
SL Thrust, klbf 
SL Isp. sec-lbf/lbm 
ODE C-Star, ft/sec 
L-Star, in 

ODE Isp. sec-lbf/lbm 
Energy Release Efficiency 
Kinetic Efficiency 
Divergence Efficiency 
Boundary Layer Efficiency 
Engine Efficiency 


\ \* W * # 

•* * » ► V* * * •• 

* ' » VA* .' V V 


* UUv S 




_ 

2.020.700 

500 to 3,000 

I 

1,161.0 

500 to 2,000 


2.270 

1.5 to 5 


16.0 

10 to 400 


10.0 



80.3 

70 to 140 


8.4 

0 to 15 


0.93930 

0.85 to 0.999 


-5.570 

-5.658 to -1.682 


IVtfuelltllL 

...mi iiiiininui Till! 1IT7T ff 

1 »! 

Value 

2.020.700T 

Throat Diameter, in 

34.6 

303.10| 

Throat Area. ln A 2 

939.4 

1,799.811 

Chamber Length, In 

39.4 

269.70 

Nozzle Exit Diameter, in 

138.3 

5.949.15 

Engine Diameter, in 

143.5 

46.71 

Nozzle Length, in 

155.5 

337.15 

Engine Length, in 

220.4 

0.9393o| 


J 

0.99796[ 

Weights. Ibm 

Value .. . I 

0.99186[ 

Turbopump and Mount 

4,488.5| 

0.99210 

Thrust Chamber 

8,507.o| 

0.92240 

Engine Mount 

467.0 


Oxidizer System 

652.0 


Fuel System 

642.4 


Purge System 

38.4 


Controls (Hydraulic) 

193.3 


Controls (Electrical) 

84.6 


Gimbal System Supply 

179.4 


Gas Generator System 

341.2! 


Exhaust System 

1,261.6 


Flight Instrumentation 

145.1 


Ignition System 

49.0 


Interface System 

542.3 


Pressurization System 

1.030.0 


Insulation - Permanent 

71.5 


Thermal Insulation Set 

1.182.5 


Total Drv Weight 

19.875.8 


Figure 65. Printed Output - "Report" - English Units - LOX/RP 
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3/27/93 


Input # 

Parameter 

Input 

Value 

Fvac, Klbf 

50.000 

(25 to 100) 


Tc, °K 

2,450 

(Fixed) 


Pc, psia 

784 

(500 to 2,000) 


Epsilon, - 

200 

(100 to 700) 



[uclear Engine Weight, Envelope and 

(NERVA Derived Prismatic Core) 


Performance Function 



Fvac Tc Pc Epsilon % L Del Isp 

Klbf °K psla _ aec 

50.000 2.450 784 200 110 849.6 


Total Wt Envel Dla Envel L 

lbm _ In In 

9.524.0 96.4 324.9 


Thrust/Weight Ratio 

5.25 


Figure 67. 


Sample Output of Nuclear Thermal Rocket Model 





Propulsion System 
Database Figures 


TA3-0428 




Figure 68. Propulsion System Database Opening Screen 




March 27,1993 Propulsion System Menu 

Please click Icon for selected propulsion system 




Figure 69. Main Menu of Propulsion Types 





More 

Data 


Summary of Propulsion Systems 


Engine Name 


Space Transportation Main Engine 


Acronym 


STME 



Reports I Date Entry 


Engine Class 

Cryogenic Liquid 


F-1 


F-1 


Hydrocarbon Liquid 


F-1 A 


F-1A 


Hydrocarbon Liquid 


J-2 


J-2 


Cryogenic Liquid 


5 

Simplified, High Performance J-2 

J-2S 

Cryogenic Liquid 

6 

Space Shuttle Main Engine 

SSME 

Cryogenic Liquid 

7 

RD-170 

RD-170 (Russian 
Designation 11D521) 

Hydrocarbon Liquid 

8 

Integrated Modular Engine 

IME 

Cryogenic Liquid 

9 

Space Shuttle Redesigned Solid Rocket Motor 

RSRM 

Solid Fuel 

10 

Nuclear Thermal Rocket, NERVA Derivative 

NTRND 

Nuclear Thermal 


Figure 70. Propulsion Systems Currently Available 











Liquids 



Figure 71. Reports Available for Each Propulsion System 
















March 30,1993 


Engine Performance 1 


Engine Name: Space Transportation Main Engine 

Class of Engine: Cryogenic Liquid 


Chemical 


Propellants 



Nominal Chamber Pressure 

cz 

2,25d 

Expansion Ratio 


45.02| 

Engine Design Life (Flights) 

1- 

^1 


Engine Thrust Data>« 

Sea Level 

Vacuum 

Nominal 

I— 

552,980| \ 

650 P 000| 

Maximum 


"i n 

“l 




Minimum 

| 

357,980| L 

455,0001 


Thrust data in units of Ibf 


—Throttle Ratio, 

Sea Level 

Vacuum 1 

Maximum 

1, 

Z1 [Z 

1 1 

Minimum 

1 

64.70| 

70.0011 


r“ 

Sea Level 

Vacuum 

1 ©Nominal Thrust C 

365.15| | 

429.221 

1 Thrust H* 

J LZ 

1 


I ©Minimum Thrust C 

337.951 | _ 

429.54] 1 


Specific Impulse data In units of seconds 





p— Nozzle Data — 

Tvoe 1 

Bell 

Length On) 

1 133.631 

Diameter On) 

1 9L67I 

Throat Area (sq. In) 

| 146.6l| 

Exit Area (sq. in) 

1 6.600.382^ 

Expansion Ratio 

1 4tTo3 


Figure 72. Typical Report Page Layout 










Figure 73. 

Output for Space Transportation Main 
Engine (STME) Propulsion System 


TA3-0424 



STME Propulsion System 
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March 31,1993 


Background Information 


Engine Name: Space Transportation Main Engine 

Class of Engine: Cryogenic Uquid 


Chemical 


Background^ 

Th« STME was designed to support propulsion requirements of the National Launch System (NLS)-Th«JMLSi concept provides 

motors. 

rp* ^rwp i- cnnable of operating in either a NLS booster or core propulsion application. In either mode, die STME starts 

«. operation of bora. STMEswillbe Irarainnrad rari *-cM *>» lb. vehral. 

with other elements while other STME's continue to operate. 

I n ,be core mode, the STME will centime to operate nftor booete, (solid or liquid) seperalkm until otbiul (or ncra orbital) 
conditions are reached. 

The STME is a pump fed liquid oxygen and liquid hydrogen engine that has been designed for high reliability and low cost. It 
The STME 4 7 ^ ^ ^ turbopump assemblies. Gas generator propellants are 

start is accomplished by use of vehicle propellant tank head pressures. No helium spin start or solid start cartn g q 
The engine provides oxygen and hydrogen gases for propellant tank pressurization. 


Comments 



Source " 088 STME Technical Information Document. 6 Jan 1993; ICD. W^ Draft ^chmert J-3 18 Sept 1992; 
Source. Draft Contract End Item Specification, Phase C/D, Revision 10. Attachment J-2, 26 May 1992 

Date: Entered as of 31 March 1993 

Entered by: Dan Levack_ — 


March 31,1993 


Propulsion System General Data 


Record Number 



Engine Name 

Class of Engine 

Propulsion Type 

Acronym 

Application 

Manufacturer 

Program Status 

Manrated 

lOC/Date Studied (Month/Year) 

Mixture Ratio - Engine/ Thrust Chamber 
Propellants 



Engine Design Life (Flights) 
Restart Capability 
Engine Cycle 

Nominal Chamber Pressure 



Nominal 


Maximum 



Expansion Ratio 

TVC Method 
Dimensions 
Maximum Length (Inches) 

Maximum Width (inches) 

Engine Mass (Ibm) 


Engine Thrust Data, Ibf 







March 31,1993 


Engine Performance 1 


Engine Name: Space Transportation Main Engine 

Class of Engine: Cryogenic Liquid 

Propellants 
Oxidizer 
Fuel 

Mixture Ratio - Engine/Thrust Chamber 


Nominal Chamber Pressure 
Expansion Ratio 
Engine Design Life (Flights) 


5313 


L 




3 


Nominal 

Maximum 


Minimum 



Sea Level 

Vacuum 

c= 

552, 98q IT 

650.0001 

1— 

j r 

l 



357, 98q | 

455,0001 


Thrust data In units of Ibf 


Sea Level 

Vacuum 

Maximum |7 - 1 1 — 

1 

Minimum 1 — 64 - 7 Pl 1— 

70.oo| 


Specific Impulse Data 


@Nominal Thrust 
©Maximum Thrust 
@Mlnlmum Thrust 


Sea Level 

Vacuum 

l_ 

364.54| L_ 

428.501 

1 

j r 

1 


| 

336.741 [_ 

428.0q 1 


Specific Impulse data In units of seconds 


Chemical 



Engine Restarts 
Design I 

Demonstrated L 


Engine Starts 
Design 

Demonstrated 


Engine Reliability, sec- 
Deslgn l 

Demonstrated I 


Nozzle Data 











March 31,1993 


Engine Performance 2 


Engine Name: Space Transportation Main Engine 

Class of Engine: Cryogenic Liquid 


Engine Mass (Ibm) 1 

Total Mass w/TVC 
Total Mass wo/TVC 


9.100 



Chemical 



TVC 


Method 




Mass (Ibm) 

Max Gimbal Angle (deg) 
Max Gimbal Rate (deg/s) 



11 . 



Engine Cycle 


Type 


Gas Generator 


Pressures — 

—Oxidizer Turbopump 


Min Pump Inlet 
Turbine Inlet 



554. 


- Fuel Turbopump 
Min Pump Inlet 

Turbine Inlet 



2.196. 


Envelope 

- Length- 

Nominal 
Stowed 
Extended 
Maximum Gimbal 


Pressures In psia 


161 




Diameter- 

Nozzle Exit 

Maximum 
Maximum Gimbal 



Envelope Dimensions in inches 


97. 

ToTT 



Engine Component Masses 


Oxygen Turbopump 
Fuel Turbopump 




1670 

1711 


1226 

1601 

1729 


(System HanJware) 


Igniter > CC 
• OQ 


Engine Tetti 


6100 




March 18,1993 


Start-Up/Shutdown Sequences 


Engine Name: Space Transportation Main Engine 

Class of Engine: Cryogenic Liquid 


Chemical 


GGOV 


MOV 


rm ( i TtVi i i - i • 



100.0- 

i 


\ 

80.0- 

( 


* 60.0* 


I : 


40.0- 

i 


I 

1 

20.0- 

0.0- 

c 


GGOV 


X 




GGFV 


MFV 


































March 18,1993 


Start-Up/Shut 


Engine Name: 


Space Transportation Main Engine 


Class of Engine: Cryogenic Liquid 



Ratio (LOX/Fud) 


Profiles 


Chemical 





























March 18,1993 


Technology Development 


Engine Name: Space Transportation Main Engine 

Class of Engine: Cryogenic Liquid 


Chemical 




March 31,1993 


Advanced Development Plan 


Engine Name: Space Transportation Main Engine 

Class of Engine: Cryogenic Liquid 


Chemical 


Advanced Development Plan 


ENGINE DEVELOPME NT PROGRAM SCHEDULE j ^20K VEHICLE 


IVNItt 


PROGRAM 


20K VEHICLE 
PROGRAM 


ENGINE 
PROGRAM MILESTONES 


1W2II IW4 » 1M 


FY 1W4 FY1W6 


1 


TmS I 1®»TI tWt | 19W 1 _ 


FY 1907 I FY10M I FY ISM | FY 


FY 2001 1 FY 


ENGINE 

DEVELOPMENT 

Hardware • 6 Naw 
1 Refurt) 

Teats 

81A 100 

BIB 90 


mmm 


ENGINE CERTIFICATION * 
Development Flight 

Hardware • 4 New CERT 
2 Development 
Fight Engines 

Teste 

B1A 94 


XT.r* « 




























Figure 74. 

Output for F-1 Propulsion System 



F-1 Propulsion System 
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March i 3 ,1993 Background Information 



- Backgroundi^ 

The F-l rocket engine development was initiated at Rocketdyne in January 1959 under the direction of NASA, MSFC The F-l 
developed to provide the power for the booster flight phase of the Saturn V vehicle A cluster of five cn^nes provided 
7 JlO.000 IbTof thrust in the fust stage. Sixty-five engines were flown on 13 Saturn V missions between 1967 and 1973 

with 100 percent success. A total of 98 production engines were delivered. 

The F 1 is a single-start fixed-thrust, liquid-bipropellant engine, calibrated to operate at a sea level thrust of 1,522,000 pounds 
2 27 1 |5«2 'providing . s £ciHc impL of 265.4 Bcomb. Th. migiim in • mlmi*«ly simple design nnmg liquid 
ovvnen »d RP-1 (rocket Lie of kettLe) for prapellimt,. The engine design is soilsble in . single or multi-engine 
SC£SiStSSHP^oi,*- to«">»«-quslificnlion mq.immeom«.esmbhshed mridemonslrnled 

at 20 starts for a total of 2,250 seconds. 

The engine features a two-piece thrust chamber that is tubular-walled and regeneratively cooled to the 10:1 expansion ratio 
rinne and towelled 1) cooled with turbine euhnust gas to the 16:1 expand ado plane;. tluust chamber mounted 
turboDumo that has two centrifugal pumps spline-connected on a single shaft driven by a two-stage, direct dnve turbine 
one Xe nSp fhat are Eed in pairs to direct the fuel and oxidizer to the thrust chamber, and a hypergohe fluid 

cartridge that is usS for thrust chamber ignition. Power for the turbopump is supplied by a bipropellant gas 8 cn « rat °”y s * er " 
which bums high pressure fuel and oxidizer from the turbopump to drive the turbine. Turbine exhaust gas, prior to cooling th 
thrust chamber nozzle extension, is directed to a heat exchanger which conditions vehicle tank P«ssurante (oxygen ^oxidizer 

tank and helium for the fuel tank). Thrust vector changes are achieved by gimbaling the entire engi . g 

Sted on theThnist chamber dome, and actuator attach points are provided by two outriggers on the thrust chamber body. The 

RP-1 fuel is used as the working fluid for the gimbal actuators, for the engine control system, and for the turbopump bearing 

lubricant. 

The engine is started using a tank-head start with pressure-ladder sequence. Initially control pressure is supplied from the 
ground 8 Start is initiated by electrically firing the gas generator and nozzle extension pyrotechnie ign.tere and energizr g 
Line control valve start solenoid to open the main oxidizer valves and the gas generator valve. Propellants directed to the gas 
generator from the pump discharges (initially at tank head pressures) are combusted in the gas generator causing pump disch g 
proves toincrease. All subsequent start sequencing is accomplished by pressure actuated valves responding to bu,Id-up of fuel 

pump discharge pressure. 

Eneine cutoff is initiated electrically by energizing the engine control valve stop solenoid. This removes opening pressure and 
applies dof g Pre^re to the pro^lUn* valves. Len closing pressure is applied to the propellant valves, onfices ,n the 
control lines sequence the gas generator valve, oxidizer valves, and fuel valves closed, m that or er. 

Engine production was terminated in 1969. 



■ References Packaoe (BC91-74) Unpublished Rocketdyne Data; Technical Manual F I Rocket 

S ° UrCe: EngTne.Sl Si‘Sarch Ts^^anje 1 2 P - 12 May 1972); ihe Saturn V F-1 Engine Revisited, A1AA 

92-1547, 24 March 1992. 


Date: 


1991 




March 30,1993 


Propulsion System General Data 


I Creation Date 

Modification Date 1 

1 18/31/92 

| 13/30/93 1 I 


Record Number 


l 


Engine Name 

Class of Engine 

Propulsion Type 

Acronym 

Application 

Manufacturer 

Program Status 

Manrated 

lOC/Oate Studied (Month/Year) 

Mixture Ratio - Engine/ Thrust Chamber 
Propellants 


[M 


IHvdrocarbon Liquld~| IChemical 


I Thermodynamic Expansion of Hot Gas 


[M 


| Satum V Booster Engine 


I Rockwell International Corporation 


111 Successful Apollo / Saturn Flights 


[Yes 


ISept 1966 


l 


2T270| [ 



Engine Design Life (Flights) 
Restart Capability 
Engine Cycle 

Nominal Chamber Pressure 


Expansion Ratio 

TVC Method 
■■Dimensions 
Maximum Length (inches) 

Maximum Width (inches) 

Engine Mass (Ibm) 


220.401 


143.501 


27410 ) 


1 


INo 




[Gas Generator 

“1 

1 98l 


1 1 T 00 I 


iGimbal 




Engine Thrust Data, Ibf 


Nominal 




March 13,1993 


Engine Performance 1 


Engine Name: 


F-1 


Class of Engine: Hydrocarbon Liquid 


Chemical 


Propellants 

Oxidizer 

Fuel 


Liquid Oxygen (MIL-P-255086 


RP-1 (MIL-P-25576B] 


Mixture Ratio - EnginefThrust Chamber 


2.27 


2.41 


Nominal Chamber Pressure (psla) 
Expansion Ratio 
Engine Design Life (Flights) 
Engine Thrust Data———— 


Nominal 

Maximum 


1,522,00 



Minimum 



Thrust data In units of Ibf 



Vacuum 

1,748,20 


16.0 





Engine Restarts 
Design 

Demonstrated 


Engine Starts 1 
Design 

Demonstrated 


Engine Reliability, sec 
Design 

Demonstrated 


2,25 




5,92 


Nozzle Data 


Bell, Tubular Wal 


Specific Impulse Data 


Sea Level 


265.41 



@Nomlnal Thrust 
@Maximum Thrust 
@Minimum Thrust 


Specific Impulse data in units of seconds 


Vacuum 

304.84 





Length (In) 
Diameter On) 
Throat Area (sq. in) 
Exit Area (sq. In) 
Expansion Ratio 


158.0 


139.9 


961.7 


15,387. 


16.0 







March 7,1993 


Engine Performance 2 


Engine Name: 


F-1 


Class of Engine: Hydrocarbon Uquid 
Engine Mass (Ibm) 


Total Mass w/TVC 
Total Mass wo/TVC 


18 , 616 . 



Chemical 


TVC 


Method 


Gimbal 


Mass (Ibm) 

Max Gimbal Angle (deg) 
Max Gimbal Rate (deg/s) 


Engine Cycle 


Type 


Gas Generator 


Pressures 

— Oxidizer Turbopump 
Min Pump Inlet C 

Turbine Inlet T 


48 . 


945 . 


- Fuel Turbopump 
Min Pump Inlet 

Turbine Inlet 


24.31 


945 . 


Envelope 

- Length- 

Nominal 
Stowed 
Extended 
Maximum Gimbal 


Pressures In psia 


220 . 





Diameter- 

Nozzle Exit 

Maximum 
Maximum Gimbal 


140.0 

143.5 



Envelope Dimensions in inches 


Engine Component Masses 


TTiruel Chamber 
Engine Mount 
Oxidizer bye tern 
Fuel SyiUai 
purge 8ye« 

Con trots (Hydraulic) 
Control# (Electrical) 
Gimbal System Supply 


FUSht Instrument*Ooa 
ignition System 
Interface System 


Insulation . Permanent 

Thermal Insulation Set 
Total r>rv Wei&ht 


8 . 506.8 
467.0 
652 0 

642.4 
38.3 

193.2 
84.8 

179.5 
341.0 
993.7 

145.2 
4U.0 

542.3 
1,030.0 

71 jO 
1,152.4 

18.612.2 







February 20,1993 


Start-Up/Shutdown Profiles 


Engine Name: 


F-1 


Class of Engine: Hydrocarbon Liquid 


Thrust Profile 


Chemical 



Shutdown 





February 20,1993 


Start-Up/Shutdown Profiles 


Engine Name: F-l 

Class of Engine: Hydrocarbon Liquid 


Isp Profile 


Chemical 







February 20,1993 


Interfaces 


Engine Name: F-1 

Class of Engine: Hydrocarbon Liquid 


Chemical 


Interfaces 


Interface Requirements 


Propellant Supply Requirements 




4M 


m 


141 

141 

WNfU (T/tUMte— 

70 

HmiUiIMi# 

llai 

Tfceern 
r »jm.. 

m 

^UOK anei puryn 


PWw ism fWM<| 

100 (mtowoiH 

'fcmecn 

fmiw 

l«toH 

LOK a—mOQU* 

1,000 

**«em 

•oo-m 


74000 totol 

fbmecn 

1*41 

00 to ISO 

tu 

ijootoijoo 

mining 


*4 total 
400 to 1*0 
3Mto41i 


•to too 
Tito til 



"1 

I 

^ tosr 
m - 

100 * 

os - 

JJ 

i; 

Ml - 

40 - 

L 5E 

110 

c * 



unto 
•toiso 
ioo to m 


i!~r 

HI 


Engine Requirements 










































February 20,1993 


Technology Development 


Engine Name: 


F-1 


Class of Engine: Hydrocarbon Liquid 


Chemical 





Percent Cost 


March 24,1993 Advanced Development Plan 



Advanced Development Plan 


too 


eo 


60 


50 


40 


30 


20 


OUAL It 


TEST SUMMARY AS OF COMPLETION 
ENGIFC TESTS 1,604 

ENGINE TIME 124,831 

FULL DURATION ON 

29 NEW ENGINES 27 REBUILT ENGINES 


COMPLETE CONTRACT — 


COMPLETE 


COMPLETE COMPONBfT REQUAL -t 
ENGINE QUAL II SffilES — 

COMPLETE COM PON BIT OUAL 
COMPLETE CUAL RELIABUTY DEMO^ 

E NGINE Up DEMO COMPLETE— 1 
PHASE II DYNAMIC STABIUTYOEMO COMPLETE Zj 
PHASE I IDYNAMIC STABU TY OEMO COMPLETE — 

Y STARTQUAL REUABIUTY DEMO 


BLOCK-1 BJGINE DESIGN RELEASE 
FIRST RATH) THRUST AND DURATION TEST - 
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Output for F-1A Propulsion System 



F-1A Propulsion System 
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March 13,1993 


Background Information 


Engine Name: 


F-1A 


Class of Engine: Hydrocarbon Liquid 


Chemical 






■ Backgrounds^— 

The F-1A engine is an uprated version of the F-l engine originally used as the first-stage booster propulsion system for the 
Saturn V launch vehicle. The engine produces a sea level thrust of 1,800,000 pounds vs. 1,522,00 for the F-l. Functionally, 
the engine is identical to the F-l. Refer to the F-l background information sheet for a general description of the engine 

configuration and operation. 

During the late 1960’s the F-l engine development program was actively pursuing upgrades and improvements on the 
flight-certified production engine. The most significant improvement was to the Mark 10 turbopump. Pump design 
modifications included reducing the turbine diameter from 35 to 30 inches, material changes to improve producibility and 
structural improvements to permit operation at higher power levels. These changes gathered over 15,000 seconds of test 
maturity in both component and engine tests. A 1,800,000 pound sea level thrust capability was demonstrated on two F-l A 
configuration development engines using the improved turbopump (Mark 10A). 

Step throttling of the engine from 1,800K to 1.350K and a condition monitoring system (CMS) are options which can be 
provided with the engine. CMS would enable holddown/shutdown capability on the launch pad and, dependent on vehicle 
configuration and mission requirements, engine out capability. 

A NASA-MSFC funded study in 1992 concluded F-l A production could readily be restarted (at substantially less cost than a 
new center line engine) using "state-of-the-practice" manufacturing processes. Five spare F-l flight engines in bonded storage at 
the Michaud Assembly Facility could be converted to the F 1A configuration to be used as "pathfinders" for assembly and test 
stand activation. Engine test facilities capable of testing the F-1A engine exist at USAF Phillips Lab in California; NASAs 
Marshall Space Flight Center in Huntsville, Alabama; and at Stennis Space Center in Mississippi. 


Comments 


• References— 

Source: F-1/F-1A Engine Data Package (BC91-74), Unpublished Rocketdyne Data 


Date: 1991 

Entered by: Dan Levack 
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Propulsion System General Data 


Record Number 



Engine Name 

Class of Engine 
Propulsion Type 
Acronym 
Application 
Manufacturer 


F-1A 

[H ydrocarbon Liquid I 1 Chemical 
I Thermodynami c Expansion of Hot Gas 
F-1A 

Booster Engine 


Program Status 
Manrated 

lOC/Date Studied (Month/Year) 

Mixture Ratio — Engine/ Thrust Chamber [ 
Propellants 

Engine Design Life (Flights) 

Restart Capability 
Engine Cycle 

Nominal Chamber Pressure 



Rockwell Interna tional Corporation 
16 Tests 

2.270j 





Expansion Ratio 

TVC Method 
■ Dimensions 
Maximum Length (Inches) 

Maximum Width (Inches) 

Engine Mass (Ibm) 



220.40j 


c 


143.5di 


I 19.875.40j 



Engine Thrust Data, Ibf 


Nominal 


Maximum 


Minimum 



Vacuum 


| 2.020,700| 

1 =3 

1_—1 

J 1,350,00l| 

| 1,570,700| 




March 13,1993 


Engine Performa 




Engine Name: 


F-1A 


Class of Engine: Hydrocarbon Liquid 


Propellantsi 

Oxidizer 

Fuel 


Liquid Oxvoen (MIL-P-255086) 


RP-1 (MIL-P-25576B 


Mixture Ratio - Engine/Thrust Chamber 


Nominal Chamber Pressure (psla) 

Expansion Ratio 

Engine Design Ufe (Flights) 

• Engine Thrust 

Sea Level 


Nominal 


1.800,001 


Vacuum 

2.020,70' 


2.27 


1.161 


16.0 


Maximum 




Minimum 


1.350.001 


1,570,70 


Thrust data In units of Ibf 


Throttle Ratio, Percent 


Maximum 


Minimum 


100.01 

"75U 


Vacuum 

100.01 
777 


Specific Impulse Data 


@Nom!nal Thrust 
@Maxlmum Thrust 


269.7 



Vacuum 

302.77 



@Minimum Thrust 




Specific Impulse data In units of seconds 


ice 1 


Chemical 




Nozzle Data 



16.0 





March 7,1993 


Engine Performance 2 


Engine Name: 


F-1A 


Class of Engine: 

Hydrocarbon Liquid 


— Engine Mass u Dm r 


Total Mass w/TVC 

| 19,875.41 

Total Mass wo/TVC 

1_-□ 


Chemical 


TVC 

Method 


Gimbal 


Mass (Ibm) 

Max Gimbal Angle (deg) 
Max Gimbal Rate (deg/s) 


Engine Cycle 


Envelope 



|— Length-— 

Nominal 


220.4| 


Stowed 

l 



Extended 

l 

~l 


Maximum Gimbal 

I 

—1 



Diameter 


Nozzle Exit 
Maximum 
Maximum Gimbal 


Envelope Dimensions in Inches 


Engine Component Masses 



I TDTWpnwpTKOBwrr 
Thru*! dambM 
Engine Mount 
OxKUatr System 
Fuel System 
Purge System 
Control* (Hydraulic) 
Controls (Electrical) 
QlmbaJ System Supply 


Exhaust System 
Fltaht lnstru mentation 
1 (ration System 
Inteftsos System 
PreeeurtaaUon System 
Insulation - Permanent 
Thermal Insulation Set 


"T.iw y 

#, 506.8 
467.0 
653.0 

643.4 
36.3 

103.3 
64 6 

170.5 
341.0 

1.261.6 

145.2 
40.0 

542.3 
1 . 030.0 

71.6 

1 . 182.4 


10 . 673.4 




February 20,1993 Start>Up/Shutdown Sequences 
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February 20,1993 Start 


Engine Name: 


F-1A 


Class of Engine: Hydrocarbon Liquid 


Thrust Profile 
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February 2o, 1993 Start-Up/Shutdown Profiles 


Engine Name: 


F-1A 


Class of Engine: Hydrocarbon Liquid 


Chemical 


Isp Profile 





March 27,1993 


Engine Name: F-1A 

Class of Engine: Hyc 


Interfaces 


Interfaces 












February 20,1993 


Technology Development 


Engine Name: 


F-1A 


Class of Engine: Hydrocarbon Liquid 


Chemical 





February 20,1993 


Advanced Development Plan 


Engine Name: 


F-1A 


Class of Engine: Hydrocarbon Liquid 


Chemical 
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Output for J-2 Propulsion System 



Propulsion System 
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Class of Engine: Cryogenic Liquid Chemical 
























March 7 ,1993 Background Information 



- Background 

The J-2 engine was developed to provide the power for the SIVB stage of the Saturn IB vehicle and for the SII and SIVB stages 
of the Saturn V vehicle. 

The J-2 rocket engine is a high-performance, multiple-restart engine that uses liquid oxygen for oxidizer and liquid hydrogen for 
fuel. Each propellant is pumped into the thrust chamber by separate gas-turbine-driven, direct-drive turbopumps. The two 
turbopumps are powered in series by a single gas generator that uses the same propellants as the thrust chamber. The hmst 
chamber is tubular-walled and is regeneratively cooled by circulating fuel through the tubes before the fuel is JJjected^into the 
combustion area. The engine has a refillable start tank from which pressurized gaseous hydrogen is root* to the 
turbines for starting the engine. This feature, combined with the augmented spark ignition system, makes the J 2 a multi- 

engine. 

The J-2 engine envelope is 80.75 inches in diameter and 133 inches long and the engine weighs approximately 3,492 pounds 
dry Thrusfvector consol is achieved by gimbaling the entire engine. The gimbal is installed at the center of the thrus chamber 
injector dome, and gimbal actuator attach points are located on the thrust chamber body. The rocket engine comprises the 
propellant feed system, gas generating system, start system, ignition n system, control system, purge system, an e lg 

instrumentation system. 


Comments 

No Comments 



Source 6 " 068 Technical Data J-2 Rocket Engine, Change No. 12 (R-3825-1). Technical Data J-2 Rocket Engine 

(R-3825-1 A) 


Date: 18 October 1972, 4 December 1973 

Entered by: Dan Levack 
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Propulsion System General Data 


Record Number 



Engine Name 

Class of Engine 

Propulsion Type 

Acronym 

Application 

Manufacturer 

Program Status 

Manrated 

lOC/Date Studied (Month/Year) 

Mixture Ratio - Engine/ Thrust Chamber 
Propellants 
Oxidizer 
Fuel 



Engine Design Life (Flights) 
Restart Capability 
Engine Cycle 

Nominal Chamber Pressure 




Expansion Ratio 

TVC Method 
Dimensions 
Maximum Length (Inches) 

Maximum Width (inches) 

Engine Mass (Ibm) 


Engine Thrust Data, Ibf 





March 13,1993 


Engine Performa 



Engine Name: 


J-2 


Class of Engine: Cryogenic Liquid 


Propellants 


Oxidizer 

Fuel 


Liquid Hydrogen 


Mixture Ratio - Engine/Thrust Chamber 


Nominal Chamber Pressure (psla) 

Expansion Ratio 

Engine Design Life (Flights) 

• Engine Thrust Data*"^^^^^“^^™ 


Nominal 


161,54 


Vacuum 

230,00' 


5.50' 


27.1 


Maximum 


161,54 


230,00 


Minimum 


113,54 


182,00' 


Thrust data In units of Ibf 


Throttle Ratio, Percent 


Maximum 

Minimum 


100.01 

TlToi 


Vacuum 

100 . 0 ( 

79.0< 


Specific Impulse Data 


@Nominal Thrust 
@Maxlmum Thrust 


Sea Level 

298.4 


298.4 


Vacuum 


424.9' 


424.9' 


@Minimum Thrust 


268.2 


430.0< 


Specific Impulse data In units of seconds 




ice 1 


Chemical 





Nozzle Data 



27.1 







March 7,1993 


Engine Performance 2 


Engine Name: 


J-2 


Class of Engine: Cryogenic Liquid 


Chemical 



— Engine Mass (Ibm)*^ 



Total Mass w^TVC 

d 

3,492.01 

Total Mass wo/TVC 

l= 

1 


TVC 
Method 


Gimbal 


Mass (Ibm) 

Max Gimbal Angle (deg) 
Max Gimbal Rate (deg/s) 


Engine Cycle 



Envelope 


r— Length --— 

Nominal 


1331 

Stowed 


_d 

Extended 

1 

d 

Maximum Gimbal 

1 

~1 




Diameter 


Nozzle Exit 
Maximum 
Maximum Gimbal 


Envelope Dimensions In inches 


Engine Component Masses 











March 7,1993 


Start-Up/Shutdown Profiles 


Engine Name: 


J-2 


Class of Engine: Cryogenic Liquid 


Chemical 


Thrust Profile 
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Start-Up/Shutd 



Mixture Ratio Profile 


wn Profiles 
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Interfaces 



Engine Name: J-2 


Class of Engine: Cryogenic Liquid 

Chemical 


Interfaces 


60 i i 


27 pda (Fuel 
,45 p da (Oxidize 


#Safe Start 

H 3 $ 

E& For Fight. M 

;BSS^ 

: vTVTrfmt^vTtmnTTtfttvr 


27 p M (Fu eft 
S3 pda Oddza 
_JL_ 

15 20 


38pda(Fud) 

46pda (Oxidize 


38 p da (Fu d) 

33pda Oxidizer) 


25 30 35 40 « 

Engine Fuel Inlet Pressure, psia 


Mein stage hPSH Requirements 


























Tests (k) 


March 13,1993 


Technology Development 


Engine Name: J-2 

Class of Engine: Cryogenic Uquld 


Chemical 


Technology Development 


J-2 Test Experience 


Total P&Dt Production 
and Field) 


Total (R&D, Production 
and Field) 


R&D 


I « 


62 63 64 65 66 67 68 69 70 


62 63 64 65 66 67 68 69 70 
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Advanced Development Plan 



Advanced Development Plan 
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Figure 77. 
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Performance J-2 (J-2S) Propulsion 

System 
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March 7,1993 


Background Information 


Engine Name: 

Simplified, High Performance J-2 


Class of Engine: 

Cryogenic Liquid 

Chemical 


Background 

The J-2S rocket engine development program was initiated at Rocketdyne in 1965 under the direction of the National 
Aeronautiira'and^pace Admiration, Marshal. Space Flight Center. The J-2S is a simplified, higher thrust and performance 
version of the highly reliable J-2 engine. It uses liquid oxygen and liquid hydrogen for propellants. 

The J-2S is designed for use in a single or multi-engine installation. The engine is nominally calibrated to operate at a vacuum 
thrust of 265,000 pounds and 5.5:1 mixture ratio, providing a specific impulse of 436 seconds. 

Engine mixture ratio can be controlled (inflight) from 4.5:1 to 6.0:1. Control is accomplished by by-passing liquid oxygen 
from the discharge side of the oxidizer turbopump to the inlet side through an electroservo actuated variable position valve.(i.e., 

the propellant utilization valve). 

The thrust chamber is a tubular wall, regeneratively cooled design having a bell shaped nozzle with an expansion area ratio of 
40:1. A gimbal bearing, attached to the thrust chamber assembly, provides a thrust vector control capability of 7.5 g 

The starting power for the turbopumps is provided by a solid projxrilant turbine starter (SPTS). Up to three SPTS units may be 
mounted on the engine to provide a multiple space re-start capability. 

The engine has a pneumatic control system for valve actuation. The pneumatic supply (gaseous helium) is provided from an 
engine mounted tank. An electrical control system, which employs solid state logic elements, sequences the engine s a an 

shutdown operations. The electrical power is stage supplied. 

A heat exchanger mounted in the turbine exhaust duct can provide either heated helium or heated oxygen for oxidizer tank 
pressurization. Heated hydrogen, tapped-off from the thrust chamber fuel injection manifold, is available for fuel tank 

pressurization. 

A 61 throttling capability has been demonstrated by regulating the tap-off turbine drive gases. Additional engine versatility can 
be achieved by operating in a low thrust, tank pressure-fed mode. This mode of operation may be used for on-orbit propulsive 

maneuvers, or pre-mainstage propellant settling. 

The J-2S design life is 30 starts and 3,750 seconds duration. Engine testing has demonstrated operation of the engine for a 
greater total duration and a greater number of engine starts. 


■ Comments 

No Comments. 



Source- 11068 J-2S Brochure (322-4977). The J-2 Rocket Engine (BC71-56). Unpublished Rocketdyne data 


Date: ?,1971 

Entered by: J- A. McClanahan. Dan Levack 
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Propulsi 


Creation Date 


5/18/92 


Modification 


3/30/93_ 


Engine Name 

Class of Engine 

Propulsion Type 

Acronym 

Application 

Manufacturer 

Program Status 

Manrated 

lOC/Date Studied (Month/Year) 

Mixture Ratio - Engine/ Thrust Chamber 

r Propellants «^^^^^^^ Ml ^^^ M ^^ 

Oxidizer lUauid Oxygen — 


Fuel 


Liquid Hydrogen 


Engine Design Life (Flights) 
Restart Capability 
Engine Cycle 

Nominal Chamber Pressure 


Expansion Ratio 
TVC Method 

■ Dimensions—i™— 
Maximum Length (inches) 

Maximum Width (Inches) 

Engine Mass (Ibm) 


■ Engine Thrust Data, lbf«" 
Nominal 


Maximum 


Minimum 









March 13,1993 


Engine 


Engine Name: 


Simplified, High Performance J-2 


Class of Engine: Cryogenic Liquid 



I Liquid Oxygen 


Propellants 
Oxidizer 
Fuel 

Mixture Ratio - Engine/Thrust Chamber 


iLtquid Hydrogen 


l 


sT500| 



Nominal Chamber Pressure (psla) 

Expansion Ratio 

Engine Design Life (Flights) 


40001 


m 


^-Engine Thrust Data- 

Sea Level 

Vacuum 

Nominal 


196,9031 | 

265,0001 

Maximum 

| 

1 IZ 

1 





Minimum 

| 

_n r 

_j 

1 Thrust data in units of Ibf 1 


Throttle Ratio, Percent 


Maximum 

Minimum 


Vacuum 


1 

Zl | . 

l 

1_ 

_i i_ 

l 



Specific Impulse Data 


@Nominal Thrust 
@Maximum Thrust 
@Minimum Thrust 


r 


mu [ 


Vacuum 

433.081 


] [ 


] 


] [ 


Specific Impulse data In units of seconds 


ance 1 


Chemical 


I 5.8301 




Type 1 

Bell. Tubular Wall 

Length (in) 

nz 

87.70| 

Diameter (In) 

cz 

76.80| 

Throat Area (sq. In) 

nz 

116.90| 

Exit Area (sq. In) 

i = 


Expansion Ratio 


5oToo| 


40.0 
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Engine Performance 2 


Engine Name: 

Simplified, High Performance J-2 


Class of Engine: 

Cryogenic Liquid 

Chemical 


Engine Mass (Ibm) 



five-—1 

| Method Gimbal | | 

Mass (Ibm) 



Max Gimbal Angle (deg) 


7.5 

Max Gimbal Rate (deg/s) 


30.0 


■ Engine Cycle 
Type 


[Tap 


-Off Turbine Drive 


Pressures 


Oxidizer Turbopump 
Min Pump Inlet G 


i9.a 


Turbine Inlet 


TTsToj 


Fuel Turbopump 


Min Pump Inlet 
Turbine Inlet 


Pressures in psla 


Envelope 

- Length- 

Nominal 
Stowed 
Extended 
Maximum Gimbal 


133] 


Diameter 


Nozzle Exit 
Maximum 
Maximum Gimbal 


Envelope Dimensions In inches 


Engine Component Masses 


r~ 

4.4| 


LZ 

1,021.01 



80.0| 


8001 


116.01 
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March 7,1993 


Start-Up/Shut 


Engine Name: Simplified, High Performance J-2 

Class of Engine: Cryogenic Liquid 


Thrust Profile 



Flowrate Profile 
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Start-Up/Shutdown Profiles 


Engine Name: 


Simplified, High Performance J-2 


Class of Engine: Cryogenic Liquid 


Chemical 
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Interfaces 



Interfaces 
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Technology Development 



Engine Name: 


Simplified, High Performance J-2 


Class of Engine: Cryogenic Liquid 


Chemical 





March 7,1993 


Advanced Development Plan 


Engine Name: Simplified, High Performance J-2 

Class of Engine: Cryogenic Liquid 


Chemical 





Figure 78. 
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February 22,1993 


Background Information 


Engine Name: Space Shuttle Main Engine 

Class of Engine: Cryogenic Liquid 


Chemical 


- Background—^ 

to be kept within design limits. The engines are gimbaled to provide pitch, yaw and roll controldurmg the orbiter boos 
phases. Gaseous hydrogen and oxygen are tapped off the engine for pressurizing the external tank. 

A staced combustion power cycle coupled with high combustion chamber pressures is employed. In the SSME staged 

Input Notes: „ _ _ 

The performance characteristics given here are for the Flight-Phase 11 Configuration. 

Demonstrated life - The number of seconds shown represent all the components except the high pressure fuel turbopump 
(HPFTP) and the high pressure oxidizer turbopump (HPOTP). The number is for the least demonstrated time among tho 
(HPFTP) JP f thc components have been demonstrated for 15,000 seconds and the rest for 10,000 

SE £ HPOTP, 83% of ,h. component have been demoneltaled for 15,000 seconds and >he res. for 10,000 seconds. 

LPFTP - low pressure fuel turbopump 

HPFTP - high pressure fuel turbopump 

LPOTP - low pressure oxidizer turbopump 

HPOTP - high pressure oxidizer turbopump 

MFV - main fuel valve 

MOV - main oxidizer valve 

FPOV - fuel preburner oxidizer supply valve 

OPOV - oxidizer prebumer oxidizer supply valve 

CCV - coolant control valve 

FBV - fuel bypass valve 

OBV - oxidizer bypass valve 

r i CommentSi^™™^ 

No Comments. 


- References RD87 . 142 CPIA/M5 (Oct 1985), Space Shuttle Orbiter Vehicle/Main Engine Interface Control 
SOU, “ : SS Vi. Space Shea, Main Engine Pock.. Date (RSS-8559-10. 

Date: 6-1-1991,10/85,13 July 1989, 22 August 1984 

Entered by: J. A. McClanahan, Dan Levack_————— 
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1 Creation Date 

Modification D 

1 |4/20/92 

_ | J3/29/93 


Engine Name 

Class of Engine 
Propulsion Type 
Acronym 
Application 
Manufacturer 


Program Status 


Manrated 

lOC/Date Studied (Month/Year) 

Mixture Ratio - Engine/ Thrust Chamber 


Propellants 

Oxidizer 1 Liquid Oxygen 
Fuel 


Engine Design Life (Flights) 
Restart Capability 
Engine Cycle 

Nominal Chamber Pressure 


Expansion Ratio 
TVC Method 

m Dimensions—*— 
Maximum Length (Inches) 

Maximum Width (inches) 

Engine^MassJIbm)^^^ 

r Engine Thrust Data, Ibf— 


Nominal 

Maximum 

Minimum 


c 

c 

1Z 


System General Data 



Record Number 


I 


Shuttle Main Engine 


|Cryogenic Liquid iChemicai 

Thermodynamic Expansion of Hot Gas 

SSME 



Rockwell International Corporation 
Space Transportation System, 4 Orbiter Fleet 


4-12-81 


6T0TTI 
















March 13,1993 


Engine Performance 1 


Engine Name: Space Shuttle Main Engine 

Class of Engine: Cryogenic Liquid 


Chemical 


Propellants 

Oxidizer 

Fuel 


Liquid Oxygen 
Liquid Hydrogen 


Mixture Ratio - Engine/Thrust Chamber 


Nominal Chamber Pressure (psia) 

Expansion Ratio 

Engine Design Life (Flights) 

Engine Thrust Data^^^^^^^^^“ 


Nominal 

Maximum 


Minimum 


375,00 

418,30 


209,20 


Thrust data in units of Ibf 


Vacuum 

469,00* 

512,30* 

303,20 


6.011 


3,02 

WE 



6.03 


Engine Restarts 
Design 

Demonstrated 




Engine Starts' 
Design 

Demonstrated 



27,00 


Engine Reliability, sec 
Design 

Demonstrated 


27.00 




37,00 


56.1 


109.0 


65.0 


Nozzle Data 


Bell, Tubular Wal 


Specific Impulse Data 


@Nominal Thrust 
©Maximum Thrust 
©Minimum Thrust 


362.4 


370.3 

311.9 


Vacuum 

453.3C 


453.6* 


452.1 


Specific Impulse data in units of seconds 


Length (in) 

Diameter (In) 
Throat Area (sq. in) 
Exit Area (sq. In) 
Expansion Ratio 


121.0 


90.2 


83.4 


6,463. 


77.5 








February 22,1993 


Engine Performance 2 


Engine Name: 


Space Shuttle Main Engine 


Class of Engine: Cryogenic Liquid 
Engine Mass 


Total Mass w/TVC 
Total Mass wo/TVC 


6,979 



Chemical 



TVC 


Method 


Gimbai 


Mass (Ibm) 

Max Gimbai Angle (deg) 
Max Gimbai Rate (deg/s) 



10 . 

To? 


Engine Cycle 


Type 


Staged Combustion 


Pressures 

—Oxidizer Turbopump 


Min Pump Inlet 
Turbine Inlet 



4 , 924 . 


- Fuel Turbopump 
Min Pump Inlet 

Turbine Inlet 



4,932 


Envelope 

- Length-- 

Nominal 
Stowed 
Extended 
Maximum Gimbai 


Pressures in psla 






Diameter- 

Nozzle Exit 

Maximum 
Maximum Gimbai 


Envelope Dimensions in inches 


90 . 

94 ? 


153 . 


Engine Component Masses 


Turbo machinery 

Pr* burners 

PB Hot One ManUbid 


Nouk 

Otmbsl Bearing 
Valves and Controls 
Controller and Mount 
POOO System 
Propellant Ducts 
Pressurization Svetem 
Other Engine Systems 


1.72! 

221 

551 

*51 

1.25< 

10 ! 

72! 

*! 

0 ' 

SOI 

81 

391 


Total Dry Weight 


6.971 





February 20,1993 start-Up/Shutdown Sequences 















Percent of Rated Power Level (RR-) 









Mixture Ratio Profile 











Engine Inlet Temperature, ° 


February 22,1993 


Interfaces 






February 22,1993 Technology Development 




March 27,1993 


Advanced Development Plan 





















Figure 79. 

Output for RD-170 Propulsion 

System 



RD-170 Propulsion System 
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Advanced Propulsion Subsystem Concepts Database 


Class of Engine: Hydrocarbon Liquid Chemical 











Advanced Propulsion Subsystem Concepts Database 
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February 22,1993 


Background Information 


Engine Name: 


RD-170 


Class of Engine: Hydrocarbon Liquid 


Chemical 


■ Background 

The RD-170 is the most powerful rocket engine currently in production anywhere in the world, and it is used as the strap-on 
booster on the Energyia heavy-lift launcher and (in the RD-171 variant) on the first stage of the Zenit launcher. It is a 
4-combustion chamber engine driven by a single turbopump assembly. 

Engine development was started in 1976 and the first flight of the RD-171 occurred during the first launch of a Zenit booster in 
1985. The first flight of the RD-170 occurred in May 1985 as the booster engine on Energiya. 

The West is aware of two successful unmanned Energiya launches, and one flight failure of a Zenit launcher is known to have 
occurred in the fall of 1990, which is believed to be related to a failure of the RD-171 engine. 


Reference Sources: 


1 


. ”RD-170~Super Powered Liquid Propellant Rocket Engine of New Generation”, by F. Chelkis, obtained September 1990 


2. “The RD-170 Liquid Rocket Engine”, NPO Energomash publication, undated. 

3. Letter, F. Chelkis to W. Ezell, August 28, 1991. 

I 4. Technology Detail Special Report 2, "USSR Rocket Engines, second edition", January 1992, by Technology Detail, 99 
Kingsway North, Clifton, York Y03 6JH, United Kingdom. 


Comments 



References 




March 30,1993 


Propulsion System General Data 



Creation Date 


12/11/92 


Modification Date 


3/29/93 


Record Number 


Engine Name 

Class of Engine 

Propulsion Type 

Acronym 

Application 

Manufacturer 

Program Status 

Manrated 

lOC/Date Studied (Month/Year) 

Mixture Ratio - Engine/ Thrust Chamber 

PrOpellantSaaHaaMi^^^Mm^^HH-a 

Oxidizer jUguid Oxygen 
Fuel iKerosene 


Engine Design Life (Rights) 
Restart Capability 
Engine Cycle 

Nominal Chamber Pressure 


[RD-170 



IRD-170 (Russian Designation 11D521 



|Yes (but not yet flown manned 
{May 1987 


2.63 



IStaged Combustion 

I 3!!55g| 


Expansion Ratio 
TVC Method 

DlmenslonsawMa 

Maximum Length (Inches) 
Maximum Width (Inches) 
Engine Mass (Ibm) 


36.8 


IGimbal 


158.Pi 

56.3i 

23,507.0 


Engine Thrust Data, ibf 


Nominal 


Maximum 


1,630,54 


1.719,391 


Vacuum 

1,776,92( 
1.865.772 


Minimum 


742,08 


888.46: 













February 20,1993 


Engine Performance 2 


Engine Name: 


RD-170 


Class of Engine: Hydrocarbon Liquid 


Chemical 


• Engine Mass (Ibm) 1 

Total Mass w/TVC 
Total Mass wo/TVC 


23.507.0l 


140.4| 



■ Engine Cycle 
Type 


Staged Combustion 



Envelope 


Envelope Dimensions in inches 


|— Length- 




r- Diameter- 



Nominal 


158 


Nozzle Exit 


56.3 

Stowed 




Maximum 

1 


Extended 




Maximum Gimbal 


~l 

IpAIvI ■ w V* 

Maximum Gimbal 

I 







Engine Component Masses 




February 20,1993 start-Up/Shutdown Sequences 



February 20,1993 


Start-Up/Shutdown Profiles 


Engine Name: 


RD-170 


Class of Engine: Hydrocarbon Uquid 


Chemical 








February 2o, 1993 Start-Up/Shutdown Profiles 


Engine Name: 


RD-170 


Class of Engine: Hydrocarbon Liquid 


Chemical 


Isp Profile 






February 22,1993 


Engine Name: RD-170 

Class of Engine: Hydrocarbon Liquid 


Interfaces 


Summary of Quoted Russian Valuss for 
RD-170 Englns 



mW W 


Chemical 



Summary of Quotad Russian Valuss for 
RD-170 Englns 




14)1,404 If 
1.777,790.4 M* 
071.0114 04 
3004 BSoanSi* 
143* 

1.793.74 pa* 

10 393 pais 

33400*34441* 
100.07 Mi 
14040 Mi 


0.7*71 

34 * 44 Pf*% 4M MM 34* 
. 100 CP 1.1110 
-If C 004.13 


0147 IS 100.01 pais MM • «• 
40.04 *00.43 pats iw aw i KtV 
104.07 ** 

40447 R * 






February 20,1993 


Technology Development 


Engine Name: 

RD-170 


Class of Engine: 

Hydrocarbon Liquid 

Chemical 





February 20,1993 Advanced Development Plan 


Engine Name: RD-170 

Class of Engine: Hydrocarbon Liquid 


Chemical 


Advanced Development Plan 



Figure 80. 

Output for Advanced LOX/H2 Engine 

(IME) Propulsion System 


TA3-0317 



IME Propulsion System 
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Advanced Propulsion Subsystem Concepts Database 



3/18/93 









Advanced Propulsion Subsystem Concepts Database 



3/13/93 

































March 7,1993 


Background Information 


Engine Name: 


Integrated Modular Engine 


Class of Engine: Cryogenic Uquid 


Chemical 


■ Background— 

An Integrated Modular Engine system design was developed which meets Air Force National Launch System Upper Stage 
design requirements. The resulting Integrated Modular Engine (IME) is a 30,000 lb thrust L02/LH2 propulsion system powered 
by a hybrid expander cycle using three bell thrust chambers and two turbopump sets. The modular design is adaptable to a wide 
range of applications via adding additional thrust chamber and turbopump modules. The propulsion system attnbutes include 
enhanced performance, operability, and reliability. Specific impulse performance is 480 seconds vacuum. Propulsion system 
launch operability is enhanced as the system requires loading only two fluids on the pad: L02 and LH2. Reliability 
improvements include a simple design with no pneumatics, hydraulics or helium purges and a backup turbopump module- In 
addition, gaseous hydrogen and oxygen for tank pressurization could also be used to supply small GH2 and G02 RCS thrusters, 
eliminating the need for a storable propellant (hydrazine) RCS system on the stage. 

Quality Function Deployment methodology was used to refine propulsion requirements, evolve design strategies and develop an 
exceptionally capable propulsion system. The IME study identified technology programs, described risks and minimization via 
backup positions and presented a cost effective development program. Engine average unit cost is estimated to be about S2.6M 

and a development program cost is estimated to be about $45M. 


Comments 

No Comments 


■ f^0f0| , 0nces i ^^^ 

Source: RI/RD92-134 (Operational Integrated Modular Engine Study) 


Date: 


3-4-93 


Entered by: T. J. Harmon 



March 30,1993 


Propulsion System General Data 


Record Number 



Engine Name 

Class o! Engine 

Propulsion Type 

Acronym 

Application 

Manufacturer 

Program Status 

Manrated 

lOC/Date Studied (Month/Year) 

Mixture Ratio - Engine/ Thrust Chamber 
Propellants 

Engine Design Ufe (Flights) 

Restart Capability 
Engine Cycle 

Nominal Chamber Pressure 





Expansion Ratio 

TVC Method 
Dimensions 
Maximum Length (inches) 

Maximum Width (Inches) 

Engine Mass (Ibm) 

Engine Thrust Data, Ibf 

Nominal 
Maximum 
Minimum 


< 

3 

SSEfl 


Vacuum 

l_ 

15,3931 



1 

— ~ 1 


_ 1 


1 _ 


1 

1 



March 13,1993 


Engine 


Engine Name: 


Integrated Modular Engine 


Class of Engine: Cryogenic Liquid 


Propellants 

Oxidizer 

Fuel 


[Liquid Oxygen 


lUguld Hydrogen 


Mixture Ratio - Engine/Thrust Chamber [ 


6!ooq 


Nominal Chamber Pressure (psia) 

Expansion Ratio 

Engine Design Ufe (Flights) 


T74S 


700.001 


3 


tmgine i nrusi uaia— 

Sea Level 

Vacuum 

Nominal 1 

15^931 r~ 

30,0001 

Maximum 1 II 1 


Minimum 1 

I c: 

i 


Thrust data In units of Ibf 


Throttle Ratio, Percent 


Maximum 

Minimum 


Vacuum 


1 - 

1 1 

1 

1 _ 

ZZ3 1 _ 

_ 1 


Specific Impulse Data 


@Nominal Thrust 
@Maxlmum Thrust 
@Minlmum Thrust 


Sea Level 

Vacuum 

ZZ 

246.281 | 

480.001 


rz 

i r 

I 



1 L 

1 


Specific Impulse data In units of seconds 






March 7,1993 


Engine Performance 2 


Engine Name: 


Integrated Modular Engine 


Class of Engine: Cryogenic Liquid 


Engine Mass (Ibm) 


Total Mass w/TVC 
Total Mass wo/TVC 


1.048 



Chemical 


TVC 


Method 


Differential Throttling 


Mass (Ibm) 

Max Glmbal Angle (deg) 
Max Glmbal Rate (deg/s) 





Engine Cycle 

7y pe | Hybrid: Fuel Side Expander. Oxid Side Prebumer 


Pressures 

— Oxidizer Turbopump 
Min Pump Inlet C 

Turbine Inlet F 


19 . 


4,843 


- Fuel Turbopump 
Min Pump Inlet 


Turbine Inlet 



2,847 


Pressures in psia 


Envelope— 

- Length- 

Nominal 
Stowed 
Extended 
Maximum Glmbal 


87 . 

87 ? 

87 ? 

87 ? 


Diameter- 

Nozzle Exit 

Maximum 
Maximum Glmbal 


Envelope Dimensions in inches 


136 . 

136 ? 


136 . 


■ Engine Component Masses™^^™ 

Component Mass. Ibm 

Thrust Chambers (3) 
Turbomachinery - High Pressure (4) 
Turbomachinery - Low Pressure (4) 
Propellant Valves, Ducts, Flanges 
External LH2 Feed Line 
Thrust Mount Cap 


502 

102 

28 

211 

20 

3 


Preburner (2) 

GOX Heat Exchanger (2) 

Controller 

Harness and Sensors 
Ignition System 

Misc Components and Contingency 


29 

5 

24 

13 

14 
97 




March 13,1993 


Start-Up/Shutdown Sequences 



Engine Name: Integrated Modular Engine 

Class of Engine: Cryogenic Liquid 


Chemical 



Startup Sequence 



75 msec 







March 7,1993 


Start-Up/Shutdown Profiles 


Engine Name: 


Integrated Modular Engine 


Class of Engine: Cryogenic Liquid 


Chemical 






March 7, 1993 


Start-Up/Shutdown Profiles 


Engine Name: 


Integrated Modular Engine 


Class of Engine: Cryogenic Liquid 


Chemical 







March 7,1993 


Engine Name: Integrated Modular Engine 

Class of Engine: Cryogenic Liquid 


Interl 


Interfaces 






March 13,1993 


Technology 


Engine Name: Integrated Modular Engine 

Class of Engine: Cryogenic Liquid 

—Technology Development 1 

FY 1993 


TECHNOLOGY PROGRAM 

• MILESTONES 

• TECHNOLOGY 

(MATERIALS, PROCESSES, PARTS, COMP.) 

• TEST BED CONSTRUCTION 

• COMPONENT TESTING M TEST BED 


*VB 


Development 







March 7,1993 Advanced Development Plan 



Advanced Development Plan 



Figure 81. 


Output for Space Shuttle Redesigned 
Solid Rocket Motor (RSRM) 
Propulsion System 


TA3-0318 



RSRM Propulsion System 


t- o 
h* o 

CO 

<0 in 


T- « 

cJ cvT 





Length (in) 1,513.4 

Weight (Ibm) 1,255,979 




Advanced Propulsion Subsystem Concepts Database 



2/14/93 




















February 14,1993 


Background Information 


Engine Name: Space Shuttle Redesigned Solid Rocket Motor 

Class of Engine: Solid Fuel 


Chemical 


> Background 

The original design and developmenl of the SRM occurred during the mid-1970s and the fust shuttle flight was in April 1981. Modifications were made to 
ZHSZ performance in Jearly 1980s with the design referred to as the high performance motor (HPM). H* final configura^n of .he HPM was first 
launched on the shuttle in August of 1983 (STS-8). The design presented here commenced in mtd-1986 and is referred to as the RSRM. It first fie 

Ma rsh a l l Space Flight Center (MSFQ has the overall management responsibility for the design and procurement of the solid rocket boosters (SRB). Thiokol 
££!SS» Victor responsible for the development and production of the SRMs. the major component of the SRB. United Space Boosters. Inc. 

(USBfySunnyvale, California, has responsibility for the SRB aft and forward skirt refurbishment and;assembly. USB1 also su ^ s d 
plates, tunnel coven, and external tank (FT) attach ring, while the joint venture of Lockheed Space Operations Company (composed of Uickheed, Tluokol, and 

Grumman) has the contract for the SRM and SRB assembly, checkout, launch, recovery, and disassembly. 

The two SRMs on the Space Shuttle provide the main thrust to lift the vehicle off the pad and up to an altitude of about 150,000 ft, 24 nmi (28 mi). On the 
pad, the two SRBs support the entire weight of the ET and orbiter and transmit the weight load through then structure to the mobile launch 
RSRM booster has a thrust (sea level) of 2.9 Mlb at launch. They are ignited after the three shuttle main engines total thrust level is venfied. The two SRMs 
provide 71.4 percent of the thrust at liftoff and accelerate the shuttle to approximately 3,100 mph before separating from the remainder of the shuttle launch 
vehicle. SRB apogee occurs 75 sec after SRB separation, at an altitude of 220,000 ft, 35 nmi (41 mi) down range. SRB impact occurs m the ocean 

approximately 122 nmi (141 mi) down range. 

The SRMs are the largest solid propellant motors ever flown and the first designed for reuse. Each is 126.11 ft (1,513.38 in.) long and 12.16 ft (146.08 in.) in 
diameter. At launch, each weighs 1,255,978 lb of which 88 percent, 1,107.168 lb, is propellant. The boosters are designed to be used 20 times. 

Primary elements of each booster are the motor (including case, propellant, igniter, and nozzle), structure, separation systems, operational flight 
instrumentation, recovery avionics, pyrotechnics, deceleration system, thrust vector control system, and range safely destruct system. 

Each booster is attached to the ET at the SRB’s aft frame by two lateral struts and a diagonal strut. The forward end of each SRB is attached to the ET at ihe 
forward end of Ihe SRB forward skirt. On the launch pad, each booster also is attached to the mobile launch platform at the aft skirt by four bolts which are 

severed by small explosives at liftoff. 

The propellant mixture in each SRB motor consists of ammonium perchlorate (oxidizer, approximately 69.7 percent by weight), aluminum (fuel, 16 percent), 
iron oxide (a bum rate catalyst, approximately 0.3 percent), a polymer (a binder that holds the mixture together, 12.04 percent), and an epoxy curing agen 
(1.96 percent). The propellant is molded into an 11-poinl star-shaped perforation in the forward portion of the forw.nl segment that transitions mlo acyl.ndncal 
perforation (CP) grain in the aft portion of the forward segment. Each of the three aft segments have aft tapered CP grains. This configuration provi es ig 
thrust at ignition, then reduces Ihe thrust by approximately one-third, 20 sec after liftoff to prevent overstressing of the vehicle dunng maximum dynamic 

pressure (Max Q). 

Each RSRM is made up of four solid rocket motor casting segments. The segmented design provides maximum flexibility in RSRM fabrication, 
transportation, and handling. Each segment is shipped to the launch site on a heavy duty railcar with a specially built cover. 

The n~~t> expansion ratio of each booster is 7.72:1. The moveable nozzle is gimbaled for thrust vector control (TVQ direction. Each SRB has ns own 
redundant auxiliary power units and hydraulic pumps. The omnidirectional gimbaling capability is 8 deg. Each nozzle has a carbon cloth phenolic liner which 
erodes and chare during firing. The nozzle is a convergent-divergent, movable design in which an aft pivot-point flexible bearing re the g.mbal mechanism. 

The cone-shaped aft skirt reacts the aft loads between the SRB and the mobile launch platform. Eight separation motors, four mounted on the aft skirtand four 
mounted on theforward skirt provide the thrust and directional control to dear the SRBs from the orbiter and external tank after booster separation. The aft skirt 
contained avionics and TVC system which consists of two auxiliary power units, hydraulic pumps, and hydraulic system. 


m Comments 



■ References 
Source: 

Date: 

CntAraH Kw 


Design Data Book (DDB) for Space Shuttle Redesigned Solid Rocket Motor (RSRM) - (TWR-16881) 


11/01/89 
Daniel Levack 


March 30,1993 


Propulsion System General Data 


Creation Date 



8/31/92 


Modification Date 


3/29/93 


Record Number 


Engine Name 

Class of Engine 

Propulsion Type 

Acronym 

Application 

Manufacturer 

Program Status 

Manrated 

lOC/Date Studied (Month/Year) 

Mixture Ratio - Engine/ Thrust Chamber 
P ropellants 

Oxidizer 1 AP — 


Fuel 


Aluminum Powder 


Engine Design Life (Flights) 
Restart Capability 
Engine Cycle 

Nominal Chamber Pressure 








I Thermodynamic Expansion of Hot Gas 














Expansion Ratio 
TVC Method 

Dimensions—■■■■■— 
Maximum Length (Inches) 

Maximum Width (Inches) 

Engine Mass (ibm) 


7.7: 


Gimbal 


1,513.31 
152.61 
1.255.979.0' 


Engine Thrust Data, Ibf 


Nominal 


Vacuum 











February 14,1993 


Motor Performance 1 


Engine Name: Space Shuttle Redesigned Solid Rocket Motor 

Class of Engine: Solid Fuel 


Chemical 


■■Propellant Composition" 





Material 



Function 


|AP 

3 

1 69.7 | 

[Oxidizer 

-1 

lAluminum Power 

1 

1 16 | 

I Fuel 

ZD 

|HB Polymer (PBAN) 


1 12.04 1 

| Binder 

ZD 

|Epoxv Resin 

□ 

1 1.96 1 

|Curina Aaent 

ZD 

(Ferric Oxide (Fe203) 

□ 

1 0.3 | 

|Burn Rate Catalyst 

ZD 

i 

□ 

1 ZD 

1 

ZD 

i 

1 


1__ 

1 



Motor Thrust, Ibf 

Maximum Expected Operating 
Maximum Operating 
Burn Time Average 
Action Time Average 



Sea Level 

Vacuum 

cz 

3.348,37l| | 

3,607,0001 

E 

3,055,3711 i 

3,314,0001 

E 

2,337,37l| r 

2,596,000| 

E 

2,146,37l| 

2,405,000| 


— Impulse, Ibf-sec—■ 

Sea Level 

Vacuum 

Burn Time 

1 260,850,6361 

I 289,713,6001 

Action Time 

1 264,862,21 t \ 

1 296,777,0001 


■i Throttle Ration 


Sea Level 

Vacuum 

Maximum 

c 

E 

1 

Minimum 

c 

D E 

“D 





Nozzle Data 


Specific Impulse, sec-lbf/Ibm 



Burn Time Avg 
Action Time Avg 


Tvoe iBeii - carbon phenolic ablative 

Length (in) 

1 178.751 

Diameter (in) 

| 149.671 

Throat Area (sq. in) 

272781 

Expansion Ratio 

1_ im 

Submergence Ratio, percent | 19| 



February 22,1993 


Motor Performance 2 


Engine Name: Space Shuttle Redesigned Solid Rocket Motor 

Class of Engine: Solid Fuel 


• Engine Mass (Ibm) 

Total Mass w/TVC 
Total Mass wo/TVC 


Chemical 



Envelope 


— Length-- 



Nominal 

d 

1513.381 

Stowed 

d 

l 

Extended 

in 


Maximum Gimbal 

[ 





Engine Component Masses 


Diameter 


Nozzle Exit 
Maximum 
Maximum Gimbal 


Envelope Dimensions in inches 


Weights. Ibm 

Case 

98,010 

Propellant 

Motor 

Igniter 

1,107,035 

134 

insulation 

20,191 

External Insulation 

637 

Liner 

1,347 

Shipping Segment 

1,247,802 

Inhibitor 

1,800 

Items Shipped Separate 


Igniter Inerts 

Systems Tunnel 
Instrumentation 

Joint Heater Cable 

Nozzle-to-Forward Section 

485 

533 

80 

24 

17,524 

Exit Cone* 

Separation System 

Stiffener Rings* 

Joint Heater System 

Exit Cone Installation 

S&A Installation 

RSRM Installation 

System Tunnel Joints 

6,193 

231 

908 

348 

22 

15 

439 

21 



Total 

1,255,979 


With external insulation installed 




February 22,1993 Start-Up/Shutdown Sequences 


r 


Engine Name: Space Shuttle Redesigned Solid Rocket Motor 

Class of Engine: Solid Fuel 


Chemical 


Startup Sequence 


Time feed 


Expected NomlnaJ Operational RSRM Sequence 

SSME Ignition 

Fire signal to ignition system initiators 

RSRM liftoff at 563.5 psia chamber pressure 

Burnout of star section web in forward segment 

Burnout of aft tapered section in aft segment commences 

Burnout of aft tapered section in aft segment complete and tailoff commences 

Separation sequence Initiated; chamber pressure is 50 psia 

RSRM physically separated (approximately) 

Propellant burnout 

Nozzle extension is severed and jettisoned 
Splashdown 


Shutdown Sequence 


February 20,1993 


Start-Up/Shutdown Profiles 


Engine Name: Space Shuttle Redesigned Solid Rocket Motor 

Class of Engine: Solid Fuel 


Chemical 


Isp Profile 




Nozzle 





Headend 

Stagnation 

Vacuum 

Total Maaa 

Specific 

Time 

Pressure 

Praaaura 

Thrust 

Row Rate 

Impluaa 

seconds 

peia 

paia 

lb1 

Ibm/sec 

sec-W/tom 


(Nominal 90 *F and 0.36® Ips Bom Rate) 



1.0 

010.93 

817.86 

3,177.675 

11.846.3 

266.20 

2.0 

896.99 

812.63 

3,162,380 

11,783.2 

268.36 

4.0 

890.66 

816.74 

3,196,184 

11,691.1 

266.79 

6.0 

896.56 

840.37 

3,296,001 

12.243.4 

269.37 

12.0 

687.96 

640.91 

3,314,302 

12.291.9 

269.64 

16.0 

879.63 

639.04 

3,321.176 

12,306.2 

269.90 

20.0 

873.86 

637.86 

3,330,801 

12,326.8 

270.16 

24.0 

632.69 

802.25 

3.196.860 

11,844.9 

270.06 

26.0 

778.24 

753.37 

3,009.303 

11,160.2 

269.66 

32.0 

735.86 

715.26 

2,862,180 

10,630.1 

269.26 

36.0 

699.16 

681.96 

2.733.822 

10,167.9 

268.67 

40.0 

664.90 

660.61 

2.612.866 

9,731.1 

266.49 

44.0 

638.28 

626.28 

2,619,380 

9,396.4 

268.12 

46.0 

615.63 

606.40 

2,439.666 

9,111.0 

267.77 

52.0 

594.16 

566.27 

2.362.641 

6,835.1 

267.42 

56.0 

600.75 

592.61 

2.396.414 

6.967.5 

267.23 

60.0 

610.67 

603.19 

2,443.418 

9,149.3 

267.06 

640 

622.55 

615.64 

2.498.140 

9,360.1 

266.89 

68.0 

629.32 

622.96 

2.532.199 

9,4943 

266.71 

72.0 

635.40 

629.56 

2.563.350 

9.617.9 

266.52 

760 

637.20 

631.84 

2.577.041 

9,6766 

266.32 

60.0 

624.26 

619.37 

2.630,472 

9,510.6 

266.07 



Headend 

NozzJs 

Stagnation 

Vacuum 

Total Mass 

Specific 

Time 

Prtwur# 

Praaaura 

Thrust 

Bow Rato 

Impiuse 

seconds 

pals paia 

(Nominal 80 T and 0.368 ipa 

tor 

Bum Rata) 

IbrrVsec 

sec-totflbm 

84.0 

597.97 

593.56 

2.430,344 

9.136.5 

265.95 

88.0 

566.47 

561.54 

2,304,312 

8,669.4 

265.00 

92.0 

539.01 

536.47 

2,202,168 

8,289.2 

265.67 

96.0 

515.03 

511.87 

2.109,693 

7,944.9 

265.54 

100.0 

489.72 

486.88 

2,011,079 

7,577.5 

265.40 

104.0 

469.83 

467.32 

1,891,307 

7,133.3 

266.14 

106.0 

426.38 

424.16 

1,756,306 

6,631.5 

264.84 

112.0 

367.07 

366.03 

1,506,404 

5,727.9 

262.99 

114.0 

264.86 

263.61 

1,081.918 

4,147.6 

260.65 

116.0 

170.56 

169.74 

670,474 

2,680.9 

250.09 

118.0 

109,72 

109.20 

421,968 

1,731.3 

243.73 

118.4 

99.75 

99.28 

383.268 

1.575.3 

243.31 

118.8 

90.37 

89.94 

346,920 

1,428.3 

242.89 

119.2 

82.02 

81.64 

314,600 

1,297.5 

242.47 

119.6 

73.60 

73.26 

282,061 

1,165.4 

242.03 

120.0 

66.33 

55.02 

250,136 

1,035.5 

241.57 

120.4 

57.39 

57.12 

222,727 

910.5 

244.61 

120.8 

50.15 

49.91 

197,245 

796.5 

247.64 

121.2 

41.20 

41.00 

164,191 

655.3 

250.54 

121.6 

32.59 

32.43 

131.574 

519.3 

253 36 

122.0 

25.30 

25.27 

103,860 

405.5 

256.14 

122.4 

10.63 

19.53 

81,296 

314.0 

256 86 







Thrust Profile 


3500-, 


3000 


1* 2500 

_Q 


^ 2000 

s 

g 1500 

D 

1 1000 


500 




CPWI-3600 
CEI Specification 


Flowrate Profile 




Nozzle 





Headend 

Stagnation 

Vacuum 

Total Mata 

Spedflc 

Time 

Pressure 

Pressure 

Thrust 

Flour Rale 

Imptuse 

seconds 


peta 

ft* 

IbnVeec 

sec-fbtflbm 


(Nominal 60 *F and 0.368 ipe Bum Rale) 



1.0 

910.93 

817.86 

3,177,675 

11,648.3 

266.20 

2.0 

896.99 

812.63 

3,162,360 

11,763.2 

268.36 

4.0 

690.56 

818.74 

3.196,164 

11,891.1 

266.79 

B.O 

896.58 

640.37 

3,296,001 

12,243.4 

269.37 

12.0 

667 95 

640.91 

3,314,362 

12,291.9 

269.64 

16.0 

879.63 

639.04 

3,321,175 

12,305.2 

269.90 

20.0 

873.65 

837.86 

3,330.601 

12,328.8 

270.16 

24.0 

632.69 

802.25 

3.196.960 

11,844.9 

270.06 

28.0 

778.24 

753.37 

3,009,303 

11,160.2 

269.65 

32.0 

736.66 

716.26 

2,862,160 

10,630.1 

269.25 

36.0 

699.16 

681.96 

2,733.622 

10,167.9 

266.67 

40.0 

664.90 

650.61 

2.612.666 

9,731.1 


44.0 

638.26 

626.26 

2,519,360 

9,396.4 

266.12 

46.0 

615,63 

605 40 

2.439,666 

9,111.0 

267.77 

52.0 

594.16 

566.27 

2,362.641 

6,835.1 

267.42 

560 

600.75 

582.61 

2,396.414 

6.967.5 

267.23 

60.0 

610.67 

603.19 

2,443,418 

9,149.3 

267.06 

640 

622.55 

615.64 

2,496.140 

9,360.1 

266.89 

680 

629.32 

622.96 

2.532.199 

9.494.3 

266.71 

72,0 

635.40 

629 55 

2.563.350 

9.817.9 

266.52 

76 0 

637.20 

631.84 

2,577,041 

9.676.6 

266.32 

80.0 

624 26 

619 37 

2.530.472 

9,510.6 

266.07 





Nozzle 





Headend 

Stagnation 

Vacuum 

Tola! Maes 

Specific 

Time 

Pressure 

Pressure 

Thrust 

Row Rate 

Impluae 

seconds 

pels 

pels 

It* 

ttyiVsec 

sec-lbt/lbm 


(Nominal 60 *F end 0.366 ipe Bum Rate) 



64.0 

597.97 

593.55 

2,430,344 

9,136.5 

266.95 

88.0 

566.47 

661.54 

2,304,312 

8,669.4 

265.80 

92.0 

539.01 

536.47 

2,202,168 

8,209.2 

265.67 

96.0 

515.03 

511.87 

2,109.693 

7,944.9 

255.54 

100.0 

489.72 

486.86 

2,011,079 

7,577.5 

255.40 

104.0 

459.83 

467.32 

1,891,307 

7,133.3 

265.14 

106.0 

426.36 

424.15 

1,756,306 

6,531.5 

264.84 

112.0 

357.07 

366.03 

1,506,404 

5,7279 

252.99 

114.0 

264.86 

263.61 

1,061,918 

4,147.6 

260 85 

116.0 

170.65 

169.74 

670,474 

2,660.9 

250.09 

118.0 

109.72 

109.20 

421,968 

1,731.3 

243 73 

116.4 

99.75 

99.26 

363,266 

1,575.3 

243.31 

116.8 

9037 

69.94 

346,920 

1,428.3 

242.89 

119.2 

82.02 

61.64 

314,600 

14297.5 

242.47 

119.6 

73.60 

73.26 

282,061 

1,166.4 

242.03 

120.0 

65.33 

66.02 

250,136 

1,036.5 

241.57 

120.4 

57.39 

67.12 

222,727 

910.5 

244.61 

120.8 

50.15 

49.91 

197,245 

796.5 

247.04 

121.2 

41.20 

41.00 

164,191 

655.3 

250.54 

121.6 

32.59 

32.43 

131,574 

519.3 

253.36 

122.0 

25.39 

25.27 

103.660 

406.5 

256 14 

122.4 

1963 

1953 

81.296 

314 0 

258 88 








February 14,1993 


Interfaces 






February i4, 1993 Technology Development 




Engine Name: Space Shuttle Redesigned Solid Rocket Motor 


Class of Engine: Solid Fuel 



Chemical 




February i 4 ,1993 Advanced Development Plan 




Engine Name: Space Shuttle Redesigned Solid Rocket Motor 


Class of Engine: Solid Fuel 



Chemical 



Figure 82. 


Output for NERVA Derived Nuclear 
Thermal Rocket Propulsion System 



NTRND Propulsion System 
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March 30,1993 


Background Information 


Engine Name: 


Nuclear Thermal Rocket, NERVA Derivative 


Class of Engine: Nuclear Thermal 


Fission Reactor 


■ Background 

Representative background data for the NTPNE will be incorporated at a future date. 


Comments 

No comments. 


Source- 0068 Rover/NERVA-Derived Near-Term Nuclear Propulsion, FY92 Final Report, October 22, 1992 (Final report of 

Rocketdyne contract with NASA-LeRC); Unpublished Rocketdyne data. 


Date: Unpublished data as of March 1993. 

Entered by: Dan Levack 



March 30, 1993 


Propulsi 


Creation Date 

3 / 7/93 


Engine Name 


Modification D 

3 / 30/93 


Class of Engine 

Propulsion Type 

Acronym 

Application 

Manufacturer 

Program Status 

Manrated 

lOC/Date Studied (Month/Year) 

Mixture Ratio - Engine/ Thrust Chamber 
n Propellants 
Oxidizer l None 
Fuel I Liquid Hydrog en 

Engine Design Life (Flights) 

Restart Capability 
Engine Cycle 

Nominal Chamber Pressure 


Expansion Ratio 
TVC Method 

m Dimensions^™™™"™™™ 
Maximum Length (Inches) 

Maximum Width (Inches) 

Engine Mass (Ibm) 

™ Engine Thrust Data, Ibf-™ 

Nominal 
Maximum 
Minimum 


System General Data 





Record Number 

- m 


Nuclear Thermal Rocket. NERVA Derivative 
fNuclear Thermal I iFIsslon Reactor 


Thermodynamic Expansion of Hot Gas 





Conceptual Studies for NASA-LeRC 


Current plans are to manrate this system 





Vacuum 









March 7,1993 


Engine Performance 1 


Engine Name: 


Nuclear Thermal Rocket, NERVA Derivative 


Class of Engine: Nuclear Thermal 


Fission Reactor 


Fuel 


Liauid Hydrogen 


Nominal Chamber Pressure (psla) 
Expansion Ratio 
Engine Design Life (Flights) 
Engine Thrust Data-^— 

Nominal 

Maximum 


Minimum 


Thrust data in units of Ibf 


Throttle Ratio 


Maximum 
Minimum 


Specific Impulse Data 


@Nominai Thrust 
©Maximum Thrust 
©Minimum Thrust 


784.01 

300.01 



Vacuum 

50,000.0 




Vacuum 




Vacuum 

852.0 C 




Engine Restarts 
Design 

Demonstrated 




Engine Reliability, sec 
Design 

Demonstrated 


Nozzle Data 


16,20 



Bell, Slotted Tubular Wall/Radiation 


Length On) 

Diameter (sq. in) 
Throat Area (sq. in) 
Exit Area (sq. in) 
Expansion Ratio 


242.0 


118.0 


36.4 


10,927. 


300.0 


Specific Impulse data In units of seconds 






March 7,1993 


Engine Performance 2 



Engine Cycle 


Type 


Topping 


Pressures, psia 


- Fuel Turbopump 
Min Pump Inlet 


Turbine Inlet 



2 , 350.0 


Envelope 

-Length- 

Nominal 
Stowed 
Extended 
Maximum Glmbal 






Diameter- 

Nozzle Exit 
Maximum 
Maximum Glmbal 


Envelope Dimensions in inches 


118 . 

719 ? 


174 . 


Engine Component Masses, lbm—“^™ 

Component Mass. Ibm 

Reactor Assembly 
(Includes Pressure Vessel and 
Internal Shield) 
Chamber/Nozzle 
Turbopump 
Lines and Controls 


7,310 


1,470 

230 

560 





March 13,1993 Start-Up/Shutdown 


Engine Name: Nuclear Thermal Rocket, NERVA Derivath 

Class of Engine: Nuclear Thermal 


Profiles 







March 7,1993 Start-Up/Shutdown Profiles 


Engine Name: 

Class of Engine: Nuclear Thermal 


Nuclear Thermal Rocket, NERVA Derivative 


Fission Reactor 


Thrust Profile 





March 7,1993 Start-Up/Shutdown Profiles 






March i3,1993 Interfaces 



Engine Name: Nuclear Thermal Rocket, NERVA Derivative 


Class of Engine: Nuclear Thermal 



Fission Reactor 







March 7,1993 


Technology Development 



Engine Name: 


Nuclear Thermal Rocket, NERVA Derivative 


Class of Engine: Nuclear Thermal 


Fission Reactor 





March 7,1993 


Engine Name: 


Advanced Development Plan 


Nuclear Thermal Rocket, NERVA Derivative 


Class of Engine: Nuclear Thermal 


Fission Reactor 





Figure 83. 


Field Definitions of the File 
“Prop System DB” 



Field Name 
Record Number 
Creation Date 

Modification Date 


Field Typ e 
Number 
Date 

Date 


Formula / Entry Option _ 

Serial Number with Current Value: "11" Increment: "1" 

Auto-enter the: “Creation Date" . , 

Prevent data that is automatically entered from being changed. 

Auto-enter the: “Modification Date* 

•• _ A _ ^ —A 


. A a _A. i ^ 




Propulsion Type 
Class of Engine 


Text 

Text 


Value List 
Cryogenic Liquid 
Hydrocarbon Liquid 
Storable liquid 
Solid Fuel 
Hybrid SRB 
Metalized Fuels 
Nuclear Thermal 
Nuclear Electric 
Combined Nuclear 
Exotic 


Engine Name 

Text 

Acronym 

Text 

Application 

Text 

Manufacturer 

Text 

Program Status 

Text 

Manrated 

Text 

Mixture Ratio (0:F) Engine 

Number 

Mixture Ratio (0:F) 

Chamber 

Number 

lOC/Date Studied 

Text 

Engine Cycle 

Text 

Nominal Chamber Pressure 

Number 

Min Inlet Pressure (Oxid) 

Number 

Expansion Ratio 

Number 

TVC Method 

Text 

Maximum Length 

Number 

Maximum Width 

Number 

Engine Mass (Ibm) 

Number 

Oxidizer 

Text 

Fuel 

Text 

Nom Sea Level Thrust 

Calculation (Number) 

Nom Vac Thrust 

Number 

Max Sea Level Thrust 

Calculation (Number) 

Max Vac Thrust 

Number 

Min Sea Level Thrust 

Calculation (Number) 

Min Vac Thrust 

Number 

Isp Sea Level 

Calculation (Number) 

Isp Vacuum 

Calculation (Number) 

Engine Background 

Text 

Background Comments 

Text 

Reference Source 

Text 

Date of Reference 

Text 

Entered by 

Text 


* If (Norn Vac Thrust > 0, Norn Vac Thrust - 11.545353 * 
NozzleDiameter A 2, “ “) 

. |f (Max Vac Thrust > 0, Max Vac Thrust - 11.545353 * 
NozzleDiameter A 2," “) 

- If (Min Vac Thrust > 0 t Min Vac Thrust - 11.545353 * 
NozzleDiameter A 2, “") 

« Isp SL Norn Thrust 
. Isp Vac Norn Thrust 


Saturday, March 27, 1993 


Prop System DB 



Field Name 


Formula / Entry Option 


Field Type 

Engine Design Life Starts Number 

Engine Design Life Sec Number 

Engine Design Life (Flights) Number 

Restart Capability Text 

Engine Design Restarts Number 

Engine Demo Restarts Number 

Design Rel (Starts) Calculation (Number) = Engine Design Life Starts 

Design Rel (Sec) Calculation (Number) * Engine Design Life Sec 

Demo Rel (Starts) Number 

Demo Rel (Sec) Number 

Isp SL Norn Thrust Calculation (Number) = If (Norn Vac Thrust > 0 , Isp Vac Nom Thrust * Nom Sea Level 

Thrust / Nom Vac Thrust,"") 

Isp Vac Nom Thrust Number 

Isp SL Max Thrust Calculation (Number) « If (Max Vac Thrust > 0, If (IspVacMaxThrust > 0, IspVacMaxThrust 

* Max Sea Level Thrust / Max Vac Thrust, "")," *) 

IspVacMaxThrust Number 

Isd SL Min Thrust Calculation (Number) * If (Min Vac Thrust > 0, If (Isp Vac Min Thrust > 0, Isp Vac Min 

P Thrust * Min Sea Level Thrust / Min Vac Thrust, *■),■*) 


Isp Vac Min Thrust 
NozzleType 
Nozzle Length 
NozzleDiameter 
Nozzle Throat Area 
Nozzle Exit Area 
Nozzle Expansion Ratio 
Throttle Ratio SL Max 
Throttle Ratio Vac Max 
Throttle Ratio SL Min 


Number 

Text 

Number 

Number 

Number 

Calculation (Number) = Nozzle Expansion Ratio * Nozzle Throat Area 

Number 

Number 

Number 

Number 


Throttle Ratio Vac Min 
Max OX Pump Pres 
Max Fuel Pump Pres 
Nom OX Turbine Pres 
TVC Mass 

Max Gimbal Angle (deg) 

Max Gimbal Rate 

Nominal Length 

Stowed Length 

Extended Length 

Extended Length Max 
Gimbal 

Nozzle Exit Diameter 
Maximum Diameter 
Max Diameter Max Gimbal 
Total Mass TVC 
Total Mass w/o TVC 
Start Up Sequence 
Shutdown Sequence 
Thrust Startup Profile 
Thrust Shutdown Profile 
Isp Startup Profile 


Number 

Number 

Number 

Number 

Number 

Number 

Number 

Calculation (Number) 

Number 

Number 

Number 

Number 

Number 

Number 

Number 

Number 

Picture/Sound 

Picture/Sound 

Picture/Sound 

Picture/Sound 

Picture/Sound 


Maximum Length 


Saturday, March 27, 1993 


Prop System DB 


-2- 



Field Name 

Isp Shutdown Profile 
Flow Startup Profile 
Flow Shutdown Profile 
O/F Startup Profile 
O/F Shutdown Profile 
Technology Development 
Adv Development Plan 
Interface 1 
Interface 2 
Interface 3 


Field Type 

Picture/Sound 

Picture/Sound 

Picture/Sound 

Picture/Sound 

Picture/Sound 

Picture/Sound 

Picture/Sound 

Picture/Sound 

Picture/Sound 

Picture/Sound 


Formula / Entry Option 


Engine Type 
Nom Fuel Turbine Pres 
Min Inlet Pressure (Fuel) 
Return Where? 


Text 

Number 

Number 

Calculation (Number) 


Which Data Entry? Calculation (Number) 


Class Type Calc 

Engine Component Masses 

Grain Design 

Noz Submergence Ratio 

Prop Material 1 

Prop Material 2 

Prop Material 3 

Prop Material 4 

Prop Material 5 

Prop Material 6 

Prop Material 7 

Prop Weight Percent 1 

Prop Weight Percent 2 

Prop Weight Percent 3 

Prop Weight Percent 4 

Prop Weight Percent 5 

Prop Weight Percent 6 

Prop Weight Percent 7 

Prop Function 1 

Prop Function 2 

Prop Function 3 

Prop Function 4 

Prop Function 5 

Prop Function 6 

Prop Function 7 

Burn Rate 


Calculation (Text) 

Picture/Sound 

Text 

Number 

Calculation (Text) 

Calculation (Text) 

Text 

Text 

Text 

Text 

Text 

Text 

Text 

Text 

Text 

Text 

Text 

Text 

Text 

Text 

Text 

Text 

Text 

Text 

Text 

Number 


. H(Class of Engine * "Cryogenic Liquid" OR Class of Engine = 
Hydrocarbon Liquid" OR Class of Engine - Storable Liquid , 17, 
[(Class of Engine - "Solid Fuel". 46. H(Class of Engine = Hybrid 
5RB", 75, H(Class of Engine * "Nuclear Thermal" OR Class of 
Engine - "Nuclear Electric" OR Class of Engine - "Nuclear Electric , 
104, if(Class of Engine » "Exotic",133,5))))) 

= H(Class of Engine = "Cryogenic Liquid" OR Class of Engine = 
Hydrocarbon Liquid" OR Class of Engine = Storable Liquid 8, 
f(Class of Engine - "Solid Fuel", 12, if(Class of Engine = Hybrid 
3RB". 13, K(Class of Engine = "Nuclear Thermal" OR Class of 
Engine * "Nuclear Electric" OR Class of Engine = Nuclear Electric , 
H, H(Class of Engine - "Exotic",15,5))))) 




- Oxidizer 
» Fuel 


Saturday, March 27, 1993 


Prop System DB 





Field Name 

Burn Rate Temp 
Burn Rate Pressure 
Burn Rate Exp 
Burn Time 
Action Time 
Max Exp Op Press 
Max Op Press 
Burn Time Avg Press 
Action Time Avg Press 
Max Exp Op Thrust Vac 
Max Op Thrust Vac 
Burn Time Avg Thrust Vac 
Action Time Avg F Vac 
Burn Time Impulse Vac 
Action Time Impulse Vac 
Action Time Avg F SL 

Max Exp Op Thrust SL 

Max Op Thrust SL 


Field Type Formula / Entry Option 

Number 

Number 

Number 

Number 

Number 

Number 

Number 

Number 

Calculation (Number) = Nominal Chamber Pressure 
Number 
Number 
Number 
Calculation 
Calculation 
Calculation 
Calculation 


(Number) 

(Number) 

(Number) 

(Number) 


Calculation (Number) 
Calculation (Number) 


Burn Time Avg Thrust SL Calculation (Number) 


Burn Time Impulse SL 
Action Time Impulse SL 


Calculation (Number) 


= Norn Vac Thrust 

* Bum Time Avg Thrust Vac * Bum Time 
» Action Time Avg F Vac * Action Time 

- If (Action Time Avg F Vac > 0, Action Time Avg F Vac - 11.545353 
•NozzleDiameter * 2. ‘") 

s If (Max Exp Op Thrust Vac > 0, Max Exp Op Thrust Vac - 
11.545353 * NozzleDiameter * 2." *) 

> If (Max Op Thrust Vac > 0. Max Op Thrust Vac - 11 .545353 * 
NozzleDiameter A 2. ■ ’) 

= If (Bum Time Avg Thrust Vac > 0, Burn Time Avg Thrust Vac - 
11.545353 * NozzleDiameter A 2," “) 

a |f (Burn Time Avg Thrust SL > 0, Burn Time Avg Thrust SL * Burn 
Time.' *) 


Calculation (Number) = If (Action Time Avg F SL > 0, Action Time Avg F SL * Action Time, 

• a\ 


Press Startup Profile 
Press Shutdown Profile 
Burn Time Avg Isp SL 


Picture/Sound 
Picture/Sound 
Calculation (Number) 


» If (Burn Time Avg Thrust Vac > 0, If (Burn Time Avg Isp Vac > 0, 
Burn Time Avg Isp Vac * Burn Time Avg Thrust SL / Burn Time Avg 

Thrust Vac. “),•') 


Burn Time Avg Isp Vac 
Action Time Avg Isp SL 


Action Time Avg Isp Vac 
Reactor Type 
Fuel Type 
Max Fuel Temp R 
Propellant Temp R 
Impulse Startup Profile 
Impulse Shutdown Profile 


Number 

Calculation (Number) 

Calculation (Number) 

Text 

Text 

Number 

Number 

Picture/Sound 

Picture/Sound 


« If (Action Time Avg F Vac > 0, If (Action Time Avg Isp Vac > 

0 Action Time Avg Isp Vac * Action Time Avg F SL / Action Time 

Avg F Vac." *).* *) 

a Isp Vac Norn Thrust 


Saturday, March 27, 1993 


Prop System DB 




Figure 84. 


Field Definitions of the File 
“Prop System DB-Pictures” 



Field Name 
Record Number 


Field Typ e 
Number 


Class of Engine 


Text 


Formula / Entry Option 

Lookup: 'Record Number* In 'Prop System DB' when 'Engine 
Name" matches "Engine Name" 

If no match, copy:" " 

Value List: 

Cryogenic Liquid 
Hydrocarbon Liquid 
Storable Liquid 
Solid Fuel 
Hybrid SRB 
Metalized Fuels 
Nuclear Thermal 
Nuclear Electric 
Combined Nuclear 
Exotic 

Lookup: 'Class of Engine' In 'Prop System DB' when "Engine 
Name" matches 'Engine Name' 




_X — ft- 




Engine Name 

Acronym 

Text 

Text 

Lookup: 'Acronym* in 'Prop System DB' when 'Engine Name' 
matches 'Engine Name" 

If no match, copy: *' 



Engine Type 

Text 

Lookup: "Engine Type' In "Prop System DB' when 'Engine Name" 
matches "Engine Name" 



If no match, copy: ** 

Mixture Ratio (0:F) 

Number 

Lookup: 'Mixture Ratio (0:F) Engine* in 'Prop System DB" when 
'Engine Name' matches 'Engine Name' 



If no match, copy: " 

Nominal Chamber Pressure 
(psia) 

Number 

Lookup: "Nominal Chamber Pressure' In "Prop System DB' when 
'Engine Name' matches "Engine Name" 

If no match, copy: '" 

Expansion Ratio 

Number 

Lookup: 'Expansion Ratio' in 'Prop System DB' when "Engine 
Name* matches "Engine Name' 



If no match, copy:"' 

Norn Sea Level Thrust (Ibf) 

Number 

Lookup: "Nom Sea Level Thrust" In "Prop System DB when 
'Engine Name' matches 'Engine Name* 



If no match, copy: '* *' 

Nom Vac Thrust 

Number 

Lookup: 'Nom Vac Thrust' in 'Prop System DB' when "Engine 
Name* matches "Engine Name" 

If no match, copy: " 


Isp Sea Level (sec) 

Number 

Lookup: "Isp Sea Level" in "Prop System DB' when "Engine Name 
matches 'Engine Name' 



If no match, copy: "* 

isp Vacuum 

Number 

Lookup: "Isp Vacuum' in 'Prop System DB" when "Engine Name" 
matches "Engine Name" 

If no match, copy: " 


Maximum Length 

Number 

Lookup: "Maximum Length" in "Prop System DB" when "Engine 
Name* matches "Engine Name" 



If no match, copy: " "" 

Maximum Width 

Number 

Lookup: 'Maximum Width" in "Prop System DB" when "Engine 


Name* matches Engine Name 

If no match, copy: " " 


Engine Mass 

Number 

Lookup: "Engine Mass 0bm)' in 'Prop System DB' when "Engine 
Name" matches "Engine Name" 

If no match, copy: "" " 



Engine Drawing 

Picture/Sound 


Engine Balance 

Picture/Sound 

» Engine Type 

Engine Type Calc 

Calculation (Text) 

Engine Class Clac 

Calculation (Text) 

a Class of Engine 


a 


Saturday, March 27, 1993 


Prop System DB-Pictures 
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Field Name _ 

Action Time Avg F SL 


Field Type 
Number 


Formula / Entry Option _____ 

Lookup: 'Action Time Avg F SL' in 'Prop System DB' when 'Engine 


- Cnnino KldHlA 1 


Action Time Avg F Vac Number 


H no match, copy: 

Lookup: 'Action Time Avg F Vac' in “Prop System DB" when 
‘Engine Name' matches “Engine Name" 

If no match, copy: " " 


Action Time Avg Isp SL 

Number 

Action Time Avg Isp Vac 

Number 

Action Time Avg Press 

Number 

Action Time 

Number 

Fuel 

Text 


Lookup: 'Action Time Avg Isp SL' in "Prop System DB“ when 
'Engine Name* matches 'Engine Name' 

If no match, copy: " ** 

Lookup: 'Action Time Avg Isp Vac' In 'Prop System DB' when 
'Engine Name' matches 'Engine Name' 

If no match, copy: *' “ 

Lookup: 'Action Time Avg Press* in 'Prop System DB' when 
"Engine Name" matches 'Engine Name' 

If no match, copy: 

Lookup: 'Action Time' In 'Prop System DB' when 'Engine Name' 
matches "Engine Name" 

If no match, copy: " "' 

Lookup: 'Fuel* In 'Prop System DB" when “Engine Name" matches 

'Engine Name* 

If no match, copy: ** “ 


Saturday, March 27, 1993 


Prop System DB-Pictures 
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Purpose: 


This User euide is to lead a person with limited knowledge of Macintosh 
nroeramine through the steps necessary to turn a FORTRAN subroutine into an 
Resolve external function. This guide assumes that the user has a little familiarity 

witMhe lunguage Systems FORTRAN compita andI Cgh *»£. c “ 
detailed information refer to the Language Systems FORTRAN Reference Man 
nnH to the Resolve User Guide and Claris Technical Note. 


INTRODUCTION 


riaHs Resolve versions l.lvl and above have the ability to call external code that 
can be used as spreadsheet functions. This code is an assembly language code with 
the proper data handling that allows it to be called or linked to other code. To create 
„ t> nvtpmni function with this euide vou must have the following. 


1. The CHookc. c. o object file 

2. A FORTRAN subroutine Setup . f 

3. A FORTRAN subroutine FHook . f 

4. Your FORTRAN subroutine 

5. Funcname application 


Because of the required interface between Resolve and an external function an 
interface oroeram or "hook" had to be written in "C" code. This program handles 
the setting of variables that Resolve uses to call the external function and the 
passing of program variables. A hook called CHookc.c.o was created as a generic 
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interface. This hook calls two FORTRAN subroutines, setup, f and FHook. f . The 
Setup, f subroutine supplies the CHook with two necessary pieces of information, 
the name of the function to be used by Resolve and the number of input arguments. 
The name of the function is not the file name but the function name used in the 
Resolve script to call the external function. The function name cannot be over 8 
characters long. Because the passing of string variables from FORTRAN to C is 
tricky, an application, Funcname, has been provided to create the setup. f file. 
Executing this program will create a complete setup. f file ready for compiling and 
linking. FHook.f is the front-end for your subroutine. Your subroutine will be 
called by FHook. f. FHook. f must be written with two arguments, an input array 
and an output array. Both arrays must be double precision real and dimensioned 
input(*) and output(lOO). The generic "C" hook was written to handle infinite input 
and 100 output variables. FHook. f can be used to manipulate the input and output 
data to your subroutine. That is do things such as reassign the values to other 
variable, change from double to single precision, convert the value and so on. 

The following is a set of steps that will allow you to create a Resolve external using 
the CHookc. c . o interface. It is suggested that all of the steps are followed the first 
time. After that any changes to the FORTRAN code that do not change file names 

will require only a simple Build command and maybe minor changes to the 

Resolve script. 

STEP 1 Create a SetUp subroutine. To do this run the program Funcname. This program 

will create a file SetUp.f that is necessary for the Resolve interface. When 
Funcname asks for 'Resolve Function Name', enter the name that you what to call 
the function in Resolve and for 'Number of Input variables', enter the number of 

input variables to your subroutine. 

STEP 2 Launch MPW 

STEP 3 Open (File, Open...) and change your FORTRAN subroutine so that it meets the 

programing rules. 

Programing Rules 

• No global or static storage: FORTRAN programs can have no COMMON, BLOCK 
DATA, or SAVE statements and the -saveall compiler option cannot be used to force 

static storage. 

• No FORTRAN I/O statements: see the following list. A lack of I/O is a serious 
limitation, but I/O is often for user interaction which is the function of Resolve. 


ACCEPT 

OPEN 

BACKSPACE 

PAUSE 

CLOSE 

PRINT 

DECODE 

READ 

ENCODE 

REWIND 

ENDFILE 

STOP 

FORMAT 

TYPE 

INQUIRE 

WRITE 

NAMELIST 



• No character constants: a statement such as 


CHARACTER*26 myString myString = 'I paid my taxes on April 7.' 
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will cause a linker error. Using CHARACTER* 1 arrays initialized with data 
statements or char () functions can be used to create a character constant. 


STEP 4 


create (File, New) a Resolve to FORTRAN interface function. This subroutine 
must have the name FHook. f. The following function can be used as a boiler plate 




SUBROUTINE FHook(args , revals) 


REAL*8 args(*), revals(100) 

REAL*8 argl,arg2,arg3,arg4,arg5 

REAL*8 arg6,arg7,arg8,arg9,arg10,argil,argl2 


c 

c 

c 

c 

c 

c 

c 

c 


f your subroutine needs other type of variables (real 4 » ^eger, 
tc.) use the appropriate conversion function to avoid garbage from 

Pino nassed. Here are some examples 


a * SNGL(args(1)) 
b = IDINT(args(2)) 
c = IIDINT(args(3)) 
args(4) = DBLE(d) 

argl = args(l) 
arg2 = args(2) 
arg3 = args(3) 
arg4 = args(4) 
arg5 = args(5) 


tfrom real*8 to real*4 
[from real*8 to integer*4 
jfrom real*8 to Integer*2 
(any to real*8 

l This is the setting of the subroutine 
1 arguments. Add more statements as 
las needed. 


c Calling your subroutine. Change this call as necessary to match 
c your subroutine. 


call yoursub(argl,arg2,arg3,arg4,arg5, 

arg6,arg7,arg8,arg9,arglO,argll,arg!2) 


revals(1) 
revals(2) 
revals(3) 
revals(4) 
revals(5) 
revals(6) 
revals(7) 


arg6 

arg7 

arg 8 

arg 9 

arglO 

argil 

argl2 


IThis sets the output array 
iwith the appropriate 
I subroutine arguments. 


return 

end 


STEP 5 


Create a Build script. Either use the following example Build script file (saved as 

ResExtern.make) as boiler plate or use the Create BllildCommandS menu. 
It is important to include CHookc. c. o in the OBJECTS sections. CHookc. c. o is the 
Resolve to FORTRAN hook. 


# File: 

# Target: 

# Sources: 

# Created: 


ResExtern•make 
ResExtern 

FHook.f Setup.f yoursub.f 

Friday, March 5, 1993 2:21:05 PM _ 
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OBJECTS = CHookc.c.o FHook.f.o Setup.f.o yoursub.f.o 

ResExtern // ResExtem.make {OBJECTS} 

Link -t RsTl -c Rslv d 
{OBJECTS} a 

”{Libraries}"Runtime.o d 
"{Libraries}"Interface.o d 
”{FLibraries}"FORTRANlib.o d 
" {FLibraries}”IntrinsicLib.o d 
-o ResExtern 

FHook.f.o / ResExtern.make FHook.f 
FORTRAN FHook.f -opt=l 
Setup.f.o / ResExtem.make Setup.f 
FORTRAN Setup.f -opt-1 
yoursub.f.o / ResExtern.make yoursub.f 
FORTRAN yoursub.f -opt=l 

Running Create Build Commands 

1. Select Create Build Commands... under the Build menu. 

2. In Program Name type the name of the file used in the filejext argument of 

the GET external function. In the above example the Program Name is 
ResExtern. 

3. Click on the Source Files... button and select the function and subroutines that 
will be linked together. These include FHook. f and Setup, f as well as your 
subroutine. 

4. Click on CreateMake 

5. Open the file "Program Name".make (in the above example it would be 
ResExtem.make) and change the following: 

Add CHookc. c. o in the front of the objects list. 

Remove : -w -f -srt -ad 4 
Change the APPL to RsTl 
Change the '????' to Rslv 
Remove the lines: 

Echo "Include d“ {FLibraries}Fresources.rd";" > 

"{FLibraries}Resource.inc" 

Rez "{FLibraries}Resource.inc” -a -m -o “filename." 

FSIZE "filename." 

Remove the following libraries: 

"{FLibraries}"FSANELib.o d 

Remove unnecessary libraries noted by the Linker. They will not cause a linker 
abort, but there will be a warning. 

STEP 6 Run Build... under the Build menu. In the window type the program file name. 

STEP 7 Correct the code to remove any compile and linker errors and repeat STEP 6. 

STEP 8 Quit MPW 
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STEP 9 Move the compiled function file into the same folder as the Resolve application. 

STEP 10 Launch Resolve 

STEP 11 Create a Button using button tool from tool palette. Name it Load (Edit, Button 

Info...) 

STEP 12 Open the button script (Script, Button Script) and write: 

GET EXTERNAL ":ResExtern” . 

Replace the word ResExtern with the name of your compiled function file. 

STEP 13 Close button script and save. 

STEP 14 Create a Button using button tool from tool palette. Name it Calculate (Edit, 

Button Info...) 

STEP 15 Open the button script (Script, Button Script) and write a Resolve script that 

defines your input variables, one output variable and a counter. Because Resolve 
External Functions can only return one value at a time you will have to create a loop 
and call your function once for each subroutine return variable you want. Your 
function call will include each of your input variables and the counter. The counter 
must be the last item in the list. Assign the return variable to the function (ie. x = 
function). For the first call to the function the counter must be equal to zero. The 
return value will be the first return variable. Therefore, the loop counter should go 
from zero to "the number of return variables"-!. The follow example is for the 
function FHook in the ResExtern file. FHook has 5 input variables and 7 output 
variables. The input values are located in cells Bl, B2, B3 B4 and B5 on the 
spreadsheet. The return values will be placed in cells c 1, C2, C3, C4, C5, C6 
and C7 as directed by the PUT x statement. 

DEFINE a,b,c,d,e,n,x 
a = Bl 
b = B2 
c = B3 
d = B4 
e = B5 

FOR n = 0 TO 6 

x = ResExtern;FHook(a,b,c,d,e,n) 

PUT X INTO MAKECELL(3,n+1) 

END FOR 

Replace the word ResExtern with the name of your compiled function file and 
FHook for the name you specified when running Funcname. 

STEP 16 Close button script 

STEP 17 Press the"Load" button This loads the external function. 

STEP 18 Press the "Calculate" button to run the function 

STEP 19 Save worksheet. 

After following this procedure you will have two files to keep track of: 
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• FORTRAN Function 

• Resolve worksheet 

To avoid operational problems keep these files in the same folder. Similarly there 
are FORTRAN files that should be kept together: 

• Function source code file 

• Any Subroutine source code files 

• Function .make file 


PROBLEMS 

The following are some special errors that may occur during the development 
process and some hints that may help to eliminate these problems. 


Compiling 


No special errors. 


Linking 

1. Cannot modify 32 bit instructions. The object files were complied with the wrong 
compiler settings. Delete all of the .f.o object files and re-run the Build. 

Resolve 

1. Invalid argument. CHookc.c.o was written to check for non-numeric input 
variables. This error means that a non-numeric value has been entered an input cell 

of the spreadsheet. 

2. Can not open function. . . , 

Check the function name in the script to be sure it is the same name as specified 

in Setup.f. , „ .. . 

Check that the function file is in the same folder as the Resolve application. 

Use Open • Tool : mySFGetFile external function. See next section for more 

information. 


Open-Tool:mySFGetFile 

A useful tool for finding a file while running a Resolve script is the external 
function mySFGetFile. This function will open a standard "Open File window 
and allow the user to find the desired file. This function returns the full path name 
of the file which can be used with file functions to load or open the file. The 
function mySFGetFile is located in the file Open-Tool. This file comes with 
Resolve and is located in the folder External Examples within the Resolve Samples 

folder 

There are many ways to setup your Resolve folder, but for simplicity and this 
example create a folder named Externals and place it in the same folder as the 
Resolve application. Move or copy the Open-Tool file into the Externals folder. 

Now the script line: 

GET EXT ERNAL " : Externals: Open • Tool" ___ 
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will load the Open-Tool :mySFGetFile function. The form of the function is: 

Open•Tool:mySFGetFile(<prompt string>,"<file typel>",'<file 
type2>","<file type3>","<file type4> ) 

were file typel, file type2, file type3 and file type4 are file type filters 
fe e PICT APPL, TEXT, etc). These filters will cause files of the type specified 
to appear in the Open dialog. If no filters are passed, files of all types will appear. 
In thecase of Resolve external functions the file type is RsTl. The following 
example shows how the script in STEP 15 would be written when the 
mvSFGetFi le function is added within an error handling routine (ON error). 


DEFINE a, b,c,d,e,n,x,fullpath 
a = B1 
b = B2 
c = B3 
d = B4 
e = B5 

GET EXTERNAL "{Externals:Open*Tool" 

GET EXTERNAL "ResExtern" 

FOR n = 0 TO 4 

x = ResExtern:FHook(a,b,c,d,e,n) 

PUT X INTO MAKECELL(3,n+1) 

END FOR 


ON ERROR 

y = LError() 

IF(y = 61) 

fullpath = 'Open-Tool:mySFGetFile'("Please 

ResExtern : , RsTl , , , ) 

GET EXTERNAL fullpath 


END IF 
IF(y = 12) 


SOUND EFFECT "Monkey" 
SOUND EFFECT "Monkey" 
SOUND EFFECT "Monkey" 
MESSAGE SError() 

ABORT 


find 


END IF 
END ERROR 


The mySFGetFile function can also be added to the resource fork of the 
spreadsheet. To do this requires ResEdit and a knowledge of how to use it. 
WARNING: Misuse of ResEdit can cause irreparable damage to files and 

applications. 


FPU OPTIONAL CODE 


Language System FORTRAN has the option of compiling your code to take 
advantage of the type of machine and the presence of an FPU. Because his is 
compiler option Language System FORTRAN will allow for FPU optional code 
generation. Meaning that the same external function can run on a Plus as well as a 
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STEP 20 
STEP 21 

STEP 22 


Quadra 950 and take advantage of the FPU. To do this requires minimal additional 
programing. 

Duplicate your subroutine and give the file a different name than the original. 

Modify this file by renaming the main subroutine and all lower subroutines and 
subroutine calls. Failure to do this will cause a linker warning about duplicate 
names and could cause run time problems. 

Modify the FHook.f file by adding the following lines between the last declaration 
and the first operational line: 


STEP 23 


11MP Inlines.f 

INCLUDE ' {MPW} Interfaces:FIncludes:OSUtils.f' 

INCLUDE ' {MPW}Interfaces:FIncludessTraps.f 1 


POINTER /SysEnvRec/ SysEnvRecPtr 


SysEnvRecPtr — NewPtr(sizeof(SysEnvRec)) 

OSErr — SysEnvirons(curSysEnvVers , SysEnvRecPtr) 


Modify the FHook.f file prior to the subroutine call by adding an if-then statement 
decking the variable SysEnvRecPtr*. hasFPU. In the TRUE section of the if put 
he call to the new subroutine. In the FALSE section put the original call. Save 

nHook.f. 


The FHook.f program in STEP 4 would now look like this: 


SUBROUTINE FHook(args,revals) 

REAL*8 args(*), revals(100) 

REAL*8 argl,arg2,arg3,arg4,arg5 

REAL*8 arg6,arg7,arg8,arg9,arglO,argl1/argl2 


I IMP Inlines.f 

INCLUDE 1 {MPW}Interfaces:FIncludes:OSUtils.f 
INCLUDE '{MPW}Interfaces:FIncludes sTraps.f‘ 


POINTER /SysEnvRec/ SysEnvRecPtr 


SysEnvRecPtr = NewPtr(sizeof(SysEnvRec)) 

OSErr = SysEnvirons(curSysEnvVers,SysEnvRecPtr) 


c 

c 

c 

c 

c 

c 

c 

c 


your subroutine needs other type of variables (real*4, integer, 
=!) use the appropriate conversion function to avoid garbage from 
Vn a nassed. Here are some examples 


a = SNGL(args(1)) 
b = IDINT(args(2)) 
c = IIDINT(args(3)) 
args(4) = DBLE(d) 


l from real*8 to real*4 
l from real*8 to integer*4 
l from real*8 to Integer*2 
tany to real*8 


arql = args(1) iThis is the setting of the subroutine 

ar g2 = args (2) l arguments. Add more statements as 

arg3 = args(3)_ las needed. ___„___ 
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arg4 = args(4) 
arg5 = args(5) 

c Calling your subroutine. Change this call as necessary to match 
c your subroutine. 

if(SysEnvRecPtr *.hasFPU) then 

c Use FPU „ . _ 

call yoursub81(argl,arg2,arg3,arg4,arg5, 

& arg6, arg7, arg8, arg9, arglO, argil, argl2) 


c NO FPU 

call yoursub(argl,arg2,arg3,arg4,arg5, 

& arg6,arg7,arg8,arg9,argl0,argil,argl2) 

end if 

revals(l) = arg6 
revals(2) = arg7 
revals(3) = arg8 
revals(4) = arg9 
revals(5) = arglO 
revals(6) = argil 
revals(7) = argl2 

return 
end 

STEP 24 Modify the .make file by adding the new subroutine file in the compile list. Do this 

by copying the old subroutine compile directive and pasting it to the end of the 
compile list. Change the old subroutine name to the new name. Add to the compiler 
options of the new subroutine -MC68020 -MC-68881. These new options will take 
advantage of 68020 and above CPUs with 68881 and above FPUs This covers 
most of the Mac IIs and the new high end Macs. The new mid range Macs may or 
may not have an FPU. Add the new subroutine object file name in the objects list 

and save the file. 

The Make file in the first STEP 5 would now look like this: 


IThis sets the output array 
lwith the appropriate 
1 subroutine arguments. 


# Files 

# Target: 

# Sources s 

# Created: 


ResExtern.make 
ResExtern 

FHook.f Setup.f yoursub.f 
Friday, March 5, 1993 2:21:05 PM 


OBJECTS = CHookc.c.o FHook.f.o Setup.f.o yoursub.f.o yoursub81.f.o 


ResExtern // ResExtern.make {OBJECTS} 

Link -t RsTl -c Rslv d 

{objects} a 

,, {Libraries} ,, Runtime.o d 
"{Libraries}"Interface.o d 
" {FLibraries}"FORTRANlib.o d 
"{FLibraries}"IntrinsicLib.o a 
-o ResExtern 

FHook.f.o / ResExtern.make FHook.f 
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FORTRAN FHook.f -opt=l 
Setup.f.o / ResExtern.make Setup.f 
FORTRAN Setup.f -opt=l 
yoursub.f.o / ResExtern.make yoursub.f 
FORTRAN yoursub.f -opt=l 
yoursub81.f.o / ResExtern.make yoursub81.f 
FORTRAN yoursub81.f -opt=l -MC68020 


-MC68881 


STEP 25 Re-run the make file by using the Build... under the Build menu. 

This new external function will work on all Macs. If the Mac has an FPU the 
performance of the function will be increased over the original function created in 

STFP 1 throueh STEP 19. 
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Purpose: 


This User guide is to lead a person with limited knowledge of Macintosh 
programing through the steps necessary to turn a FORTRAN subroutine into an 
Resolve external function. This guide assumes that the user has a little familiarity 
with the Absoft FORTRAN compiler and Claris Resolve. For more detailed 
information refer to the MacFortran II Reference Manual and to the Resolve User 
Guide and Claris Technical Note. 


INTRODUCTION 

Claris Resolve versions l.lvl and above have the ability to call external code that 
can be used as spreadsheet functions. This code is an assembly language code with 
the proper data handling that allows it to be called or linked to other code. To create 
a Resolve external function with this guide you must have the following; 

1. The CHookc. c. o object file 

2. A FORTRAN subroutine Setup. f 

3. A FORTRAN subroutine FHook . f 

4. Your FORTRAN subroutine 

5. Funcname application 

Note: The Absoft MacFortran II compiler creates code that requires an FPU. 
Therefore, the code development described here will not work on some of the older 
Mac's (Plus.SE) and some of the newer ones without FPUs (Classic, LC, SI, 

Centris). 
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STEP 1 


STEP 2 
STEP 3 


Because of the required interface between Resolve and an external function an 
interface program or "hook” had to be written in "C" code. This program handles 
the setting of variables that Resolve uses to call the external function and the 
passing of program variables. A hook called CHookc.c.o was created as a generic 
interface. This hook calls two FORTRAN subroutines. Setup. £ and FHook. f. The 
Setup . f subroutine supplies the CHook with two necessary pieces of information, 
the name of the function to be used by Resolve and the number of input arguments. 
The name of the function is not the file name but the function name used in the 
Resolve script to call the external function. The function nam £ cannot be over 8 
characters long. Because the passing of string variables from FORTRAN to C is 
tricky, an application, Funcname, has been provided to create the setup . f tile. 
Executing this program will create a complete Setup* f file ready for compiling an 
linking. FHook. f is the front-end for your subroutine. Your subroutine will be 
called by FHook. f. FHook. f must be written with two arguments, an input array 
and an output array. Both arrays must be double precision REAL and dimensioned 
inputf*) and output(lOO). The generic "C" hook was written to handle infinite inpu 
and 100 output variables. FHook. f can be used to manipulate the input and outpu 
data to your subroutine. That is do things such as reassign the values to other 
variable, change from double to single precision, convert the value and so on. 


The following is a set of steps that will allow you to create a Resolve external using 
the CHookc. c. o interface. It is suggested that all of the steps are followed the first 
time. After that any changes to the FORTRAN code that do not change file names 

will require only a simple Build command and maybe minor changes to the 

Resolve script. 


Create a SetUp subroutine. To do this run the program Funcname. This program 
will create a file SetUp.f that is necessary for the Resolve interface. When 
Funcname asks for ’Resolve Function Name', enter the name that you what to call 
the function in Resolve and for 'Number of Input variables', enter the number of 

input variables to your subroutine. 


Launch MPW 

Open (File, Open...) and change your FORTRAN subroutine so that it meets the 
programing rules. 


Programing Rules 

• No global or static storage: FORTRAN programs can have no common , block 
data, or save statements and the -s compiler option cannot be used to force static 

storage. 

• No FORTRAN I/O statements: see the following list. A lack of I/O is a serious 
limitation, but I/O is often for user interaction which is the function of Resolve. 


ACCEPT 

OPEN 

BACKSPACE 

PAUSE 

CLOSE 

PRINT 

DECODE 

READ 

ENCODE 

REWIND 

ENDFILE 

STOP 

FORMAT 

TYPE 

INQUIRE 

WRITE 

NAMELIST 
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• No run time error messages: some compiler options such as the "Check array 
boundaries' 1 option, -C, and the subprogram folding options, -z and -Z, can 
generate a run time error message. A CASE statement with a missing CASE 
DEFAULT can also cause a run time error unless the -N4 option is used. 


• No character constants: a statement such as 

CHARACTER*26 myString myString 38 'I paid my taxes on April 7. 

will cause a linker error. Using CHARACTER* 1 arrays initialized with data 
statements or char () functions can be used to create a character constant. 


STEP 4 


Create (File, Neill) a Resolve to FORTRAN interface function. This subroutine 
must have the name FHook. f . The following function can be used as a boiler plate 

code. 


SUBROUTINE FHook(args,revals) 


REAL*8 args(*), revals(100) 

REAL*8 argl,arg2,arg3,arg4,arg5 

REAL*8 arg6,arg7,arg8,arg9,arglO,argil,argl2 


c 

c 

c 

c 

c 

c 

c 

c 


If your subroutine needs other type of variables (real*4, integer, 
etc.) use the appropriate conversion function to avoid garbage from 
being passed. Here are some examples 


a = SNGL(args(l)) 
b * IDINT(args(2)) 
c = IIDINT(args(3)) 
args(4) = DBLE(d) 


I from real*8 to real*4 
Ifran real*8 to integer*4 
l from real*8 to Integer*2 
!any to real*8 


argl = args(l) 
arg2 « args(2) 
arg3 = args(3) 
arg4 = args(4) 
arg5 = args(5) 


IThis is the setting of the subroutine 
!arguments. Add more statements as 
ias needed. 


c Calling your subroutine. Change this call as necessary to match 
c your subroutine. 


call yoursub(argl,arg2,arg3,arg4,arg5, 

arg6,arg7,arg8,arg9,arglO,argil,argl2) 


revals(1) 
revals(2) 
revals(3) 
revals(4) 
revals(5) 
revals(6) 
revals(7) 


= arg6 
= argl 
= arg8 
= arg9 
= arglO 
= argil 
= argl2 


IThis sets the output array 
Iwith the appropriate 
!subroutine arguments. 


return 

end 
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STEP 5 


Create a Build script. Either use the following example Build script file (saved as 

ResExtern. make) as boiler plate or use the Create BuildCommandS menu. 
It is important to include CHookc. c. o in the OBJECTS sections. CHookc. c. o is the 
Resolve to FORTRAN hook. 


# File: 

# Target: 

# Sources: 

# Created: 


ResExtern.make 
ResExtern 
FHook.f Setup.f 

Monday, January 18, 1993 9:16:12 AM 


OBJECTS = CHookc.c.o FHook.f.o Setup.f.o yoursub.f.o 


FFLAGS = -q -k -N14 


ResExtern // ResExtern.make {OBJECTS} 
Link -t 'RsTl' -c Rslv d 
{OBJECTS} d 

"{Libraries}"Runtime.o d 
" { T.i h rar-i es} " Interface. o d 
”{FLibraries}"f77math.o d 

-o ResExtern 

FHook.f.o / ResExtern.make FHook.f 
f77compiler {FFLAGS} FHook.f 
Setup.f.o / ResExtern.make Setup.f 
f77compiler {FFLAGS} Setup.f 
yoursub.f.o / ResExtern.make yoursub.f 
f77compiler {FFLAGS} your.sub.f 


Running Create BuildCommandS 

1. Select Create BuildCommandS... under the MacFortran menu. 

2. In Program Name type the name of the file used in the filejext argument of 
the get external function. In the above example the Program Name is 
ResExtern. 

3 Click on the Source Files... button and select the function and subroutines that 
will be linked together. These include FHook.f and Setup.f as well as your 

subroutine. 

4. Click on CreateMake 

5. Open the file "Program Name".make (in the above example it would be 

ResExtern .make) and change the following: 

Add -N14 -k next to FFLAGS -q, separated with only a space. 

Add CHookc. c. o in the front of the OBJECTS list. 

Remove the line: filename ff filename. make Duplicate -r -y 
" {FLibraries}F77mrwe.o" filename 
Change the APPL to ' RsTl ’ 

Change the '????' to ' Rslv ’ 
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STEP 6 
STEP 7 


Remove -f -model far 
Remove the following libraries: 

"{FLibraries}"F77mrwe.o d 
"{FLibraries}"frt0.o d 

"{FLibraries}"f77io.o d ... 

Remove unnecessary libraries noted by the Linker. They will not cause a linker 

abort, but there will be a warning. 

If I .inker reoorts 32K iump errors add -N8 and -N11 to the FFLAGS list. 


Run Build... under the MacFortran menu. In the window type the program 
file name. 

Correct the code to remove any compile and linker errors and repeat STEP 6. 


STEP 8 
STEP 9 


Quit MPW 

Move the compiled function file into the same folder as the Resolve application. 


STEP 10 Launch Resolve 

STEP 11 Create a Button using button tool from tool palette. Name it Load (Edit, Button 

Info...) 

STEP 12 Open the button script (Script, Button Script) and write: 

get EXTERNAL "sResExtern" , , .._ 

Replace the word ResExtern with the name of your compiled function tile. 

STEP 13 Close button script and save. 

STEP 14 Create a Button using button tool from tool palette. Name it Calculate (Edit, 

Button Info...) 

STEP 15 Open the button script (Script, Button Script) and write a Resolve script that 

defines your input variables, one output variable and a counter. Because Resolve 
External Functions can only return one value at a time you will have to create a loop 
and call your function once for each subroutine return variable you want. Your 
function call will include each of your input variables and the counter. The counter 
must be the last item in the list. Assign the return variable to the function (le. x- 
function). For the first call to the function the counter must be equal to zero. The 
return value will be the first return variable. Therefore, the loop counter should go 
from zero to "the number of return variables"-l. The follow example is for the 
function FHook in the ResExtern file. FHook has 5 input variables and 7 output 
variables. The input values are located in cells Bl, B2, B3 B4 and B5 on the 

spreadsheet. The return values will be placed in cells Cl, C2, C3, C4, C5, C6 

and C 7 as directed by the PUT x statement. 


DEFINE a,b,c,d,e,n,x 
a = Bl 
b = B2 
c = B3 
d = B4 
e = B5 
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FOR n * 0 TO 6 

x ■ ResExtern:FHook(a,b,c,d,e,n) 

POT x INTO MAKECELL(3,n+1) 

END FOR 

Replace the word ResExtern with the name of your compiled function file and 
FHook for the name you specified when running Funcname. 

STEP 16 Gose button script 

STEP 17 Press the"Load" button This loads the external function. 

STEP 18 Press the "Calculate" button to run the function 

STEP 19 Save worksheet. 

After following this procedure you will have two files to keep track of. 

• FORTRAN Function 

• Resolve worksheet 


To avoid operational problems keep these files in the same folder. Similarly there 
are FORTRAN files that should be kept together: 


• Function source code file 

• Any Subroutine source code files 

• Function .make file 


PROBLEMS 

The following are some special errors that may occur during the development 
process and some hints that may help to eliminate these problems. 


Compiling 

No special errors. 

Linking 

1. Cannot modify 32 bit instructions. The object files were complied with the wrong 

compiler settings. Delete all of the .f.o object files and re-run the B U i I d. 

2. Cannot make 32K jump. Add -N8 and -Nil to the FFLAGS list. Delete all of the 

.f.o object files and re-run the Build. 

Resolve 

1. Invalid argument. CHookc.c.o was written to check for non-numeric input 
variables. This error means that a non-numeric value has been entered an input cell 

of the spreadsheet. 

2. Can not open function. 

Check the function name in the script to be sure it is the same name as specified 
in Setup. f. 
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Check that the function file is in the same folder as the Resolve application. 

Use Open‘Tool: mySFGetFile external function. See next section for more 

information. 


Open * TooljaySFGetFile 


A useful tool for finding a file while running a Resolve script is the external 
function mySFGetFile. This function will open a standard Open File window 
and allow the user to find the desired file. This function returns the full path name 
of the file which can be used with file functions to load or<Dpen the file. The 
function mySFGetFile is located in the file Open-Tool. This file comes with 
Resolve and is located in the folder External Examples within the Resolve Samples 

There are many ways to setup your Resolve folder, but for simplicity and this 
example create a folder named Externals and place it in the same folder as the 
Resolve application. Move or copy the Open • Tool file into the Externals folder. 

Now the script line: 


GET EXTERNAL "jExternals:Open’Tool" 
will load the Open'Tool mySFGetFile function. The form of the function is: 

Open•Tool j mySFGetFile(<prompt string>,"<file typel>","<file 
type2>V'<file type3>", "<file type4>”) 

were file type 1, file type2, file type3 and file type4 are file type filters 

(e e PICT APPL TEXT, etc). These filters will cause files of the type specified 
to appear in the Open dialog. If no filters are passed, files of all types will appear. 
In the case of Resolve external functions the file type is RsTl. The following 
example shows how the script in STEP 15 would be written when the 
mySFGetFile function is added within an error handling routine (ON ERROR). 


DEFINE a,b,c,d,e,n,x,fullpath 
a = B1 
b = B2 
c = B3 
d = B4 
e = B5 

GET EXTERNAL “{Externals:Open-Tool" 

GET EXTERNAL "ResExtem" 

FOR n = 0 TO 4 

x = ResExtern:FHook(a,b,c,d,e,n) 
PUT x INTO MAKECELL(3,n+1) 

END FOR 


ON ERROR 

y = LError() 

IF(y = 61) 

fullpath = 'Open -Tool:mySFGetFile'("Please find 

i tl II— _ 1 II It n It II VI VI V 

ResExtem : , RsTl , , f ) 

GET EXTERNAL fullpath 

END IF 
IF(y = 12) 
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SOUND EFFECT "Monkey" 

SOUND EFFECT "Monkey" 

SOUND EFFECT "Monkey" 

MESSAGE SError() 

ABORT 

END IF 
END ERROR 

The mySFGetFile function can also be added to the resource fork of the 
spreadsheet. To do this requires ResEdit and a knowledge of how to use it. 
WARNING: Misuse of ResEdit can cause irreparable damage to files and 

applications. 
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USER GUIDE 


Subject: 


External Functions for Microsoft Excel for the Macintosh written in FORTRAN 
complied with Absoft MacFortran II version 3.1 and MPW version 3.2 


Written By: David W. Harris 

Rocketdyne Division 
Rockwell International 
PO Box 7922 
6633 Canoga Ave. 

Canoga Park, CA 91309-7922 
(818) 718-4677 
Date: August 12 1992 


iMcneMATinN PROVIDED IN THIS DOCUMENT AND ANY SOFTWARE THAT MAY ACCOMPANY THIS DOCUMENT 

"odEiion .11 p.g.s mm to included; 2) If eof.w.r, i. incleded, .11 flies on Ihe d.sk(.) mo., b. cop'd 
without modification; 3) All components of this User guide must be distributed together; and 4) This User guide may not be 

distributed for Mjcrosof , Excel and Exce | are registered trademarks of Microsoft Corporation 

Macintosh is a registered trademark of Apple Computer, Incorporated. 

MacFortran II is a trademark of Absoft Corporation. 

wsQ created usine Microsoft Word for the Macintosh. 


Purpose: 


This User guide is to lead a person with limited knowledge of Mac programing 
through the steps necessary to turn a FORTRAN subroutine into an Excel external 
function. This guide assumes that the user has a little familiarity with the Absoft 
FORTRAN compiler and Microsoft Excel. For more information refer to the 
MacFortran II Reference Manual and to the Excel User Guide, Function Reference 
and Microsoft Application Note: ME0333. 


INTRODUCTION 

Microsoft Excel versions 2.2 and above have the ability to call external code 
resources that can be used as spreadsheet functions. A "Code Resource is an 
assembly language code with the proper data handling that allows it to be called or 
linked to other code. There are many different types of code resources but for this 
application the resource needs to be type CODE. Apple Technical Note #256 has 
additional information on code resources but it is not necessary to read if the 
examples of this note are followed. 

Note: The Absoft MacFortran II compiler creates code that requires an FPU. 
Therefore, the code development described here will not work on some of the older 
Mac's (Pl’us.SE) and some of the newer ones without FPUs (Classic, LC, SI, 

Centris). 
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STEP 1 
STEP 2 


Launch MPW 

Open (File, Open...) and change your FORTRAN subroutine so that it meets the 
programing rules. 


Programing Rules 


• No global or static storage: FORTRAN programs can have no common , block 
DATA, or save statements and the -s compiler option cannot be used to force static 

storage. 

• No FORTRAN I/O statements: see the following list. A lack of I/O is a serious 
limitation, but I/O is often for user interaction which is the function of Excel. 


ACCEPT 

OPEN 

BACKSPACE 

PAUSE 

CLOSE 

PRINT 

DECODE 

READ 

ENCODE 

REWIND 

ENDFILE 

STOP 

FORMAT 

TYPE 

INQUIRE 

WRITE 

NAMELIST 



• No run time error messages: some compiler options such as the "Check array 
boundaries" option, -C, and the subprogram folding options, -z and -Z,can 
generate a run time error message. A CASE statement with a missing CASE 
DEFAULT can also cause a run time error unless the -N4 option is used. 

• No character constants: a statement such as 

CHARACTER* 26 myString myString = 'I paid my taxes on April 7. 

will cause a linker error. Using CHARACTER* 1 arrays initialized with DATA 
statements or char () functions can be used to create a character constant. 


STEP 3 


Create (File, Neui) an Excel to FORTRAN interface function. The following 
function can be used as a boiler plate code. This example program is saved as 

xfunc.f. 


PASCAL INTEGER*4 FUNCTION MAIN(in) 


c 


This function works as a Integer function in EXCEL with "KK 


typejtext. 


STRUCTURE /inlist/ IThis is the input list from Excel. 

INTEGER*2 row 
INTEGER*2 col 
REAL*8 ary(lOO) 

END STRUCTURE 


STRUCTURE /outlist/ IThis is the output list from the 

INTE GER *2 row l FORTRAN program. 

INTEGER*2 col 
REAL*8 ary(lOO) 

END STRUCTURE 
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RECORD /inlist/ in 
RECORD /outlist/ out 

c This is the declaration of arguments for the FORTRAN subroutine. 


real*8 argl,arg2,arg3,arg4,arg5,arg6 


c 

c 

c 

c 

c 

c 

c 

c 


If your subroutine needs other type of variables (real*4, integer, 
etc.) use the appropriate conversion function to avoid passing garbage 

Here are seme examples 


a = SNGL(ary(l)) 
b = IDINT(ary(2)) 
c = IIDINT(ary(3)) 
ary(4) = DBLE(d) 


tfram real*8 to real*4 
Ifrom real*8 to integer*4 
ifrom real*8 to Integer*2 
jany to real*8 


axgl = in.ary(1) 
arg2 = in.ary(2) 
arg3 = in.ary(3) 


lThis is the setting of the subroutine 
larguments. Add more statements as 
las needed. 


c Calling your subroutine. Change this call as necessary to match 
c your subroutine. 


call yoursub(argl,arg2,arg3,arg4,arg5,arg6) 

out row = 3 IThis sets the worksheet area. 

SIS = 1 I Adjust as needed. 


out.ary(l) = arg4 IThis sets the output array 

out.ary(2) = arg5 lwith the appropriate 

out.ary(3) = arg6 isubroutine arguments. 

c The last thing to do is set the function values to the structure 
c pointer. No need to change this statement. 


MAIN = LOC(out) 

return 

end 


The STRUCTURE in this function would be good for any combination of arguments 
where row*columns <= 100. The RECORD declaration is necessary to assign the 
name "in” to the structure "inlist'V The variables are now referred to with the 
prefix "in." (in.row, in.col, in.ary(l),...). The values in ary are arranged 

as such: 


ary (1) = row,,col, 
ary (2) = row,,col 2 


ary(m) = row,,col m 
ary(m+l) = row 2 ,col, 


ary(n*m) = row n ,col m 


Page 3 of 6 


Printed: Wednesday, March 10,1993 


FORTRAN external functions for Microsoft Excel and Absoft MacFortran II 



STEP 4 


Create a Build script. Either use the following example Build script file (save as 
xfunc.make) as boiler plate or use the Create BuildCommandS menu. 

# File: xfunc.make 

# Target: xfunc 

# Sources: xfunc.f yoursub.f ... 

# created: 

# Add to this OBJECTS list all necessary subroutines 
OBJECTS = xfunc.f.o yoursub.f.o 


FFLAGS - -q -N14 -k 


xfunc // xfunc.make {OBJECTS} 

Link -t XLLB -C XCEL -rt CODE=128 
{OBJECTS} d 

# This library list can be modified to 

# libraries 

"{Libraries}"Runtime.o d 
" { T-i h rari es} " Interface.o d 
"{FLibraries}"F77stubs.o d 
"{FLibraries}"frt0.o d 
"{FLibraries}”f77io.o d 

" {FLibraries}"f77math.o d 
-o xfunc 


-m MAIN -sg main d 
remove unnecessary 


xfunc•f.o / xfunc•make xfunc•f 

f77compiler {FFLAGS} xfunc.f 

# Repeat the next two lines for each subroutine and change 

# yoursub to each of the subroutine names 
yoursub.f.o / xfunc•make yoursub•f 

f77compiler {FFLAGS} yoursub.f 


Running Cr60t6 BuildConimnnds 

1. Select Create BuildCommandS... under the MacFortran menu. 

2. In Pro9ram Name type the name of the file used in the file^text argument of the 
REGISTER or CALL function. In the above example the Program Name is 
xfunc. 


3. In the Program Tgpe box select Code Resource 

4. In the box next to Creator put HCEL. (Note characters must be all upper case.) 


5. In the box next to Tgpe put KLLB. (Note characters must be all upper case.) 



the box next to Main Entry Point type the name of the FORTRAN function, 
ust be all upper case. This is the name used in the resourcejext argument of the 

5GISTER or CALL function. In the above example the Main Entry Point is 


TN 
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STEP 

STEP 

STEP 

STEP 

STEP 

STEP 

STEP 


STEP 

STEP 

STEP 

STEP 


7. In the box next to Resource Type put C0DE s 128 

8. Click on the S O U rc e Files... button and select the function and subroutines that will 
be linked together. The main function (the one called by Excel) must be first. In the 
above example xf unc. f is the main program and yoursub. f is a subroutine. 

9. Click on CreateMake 

10. Open the file "Program Name" .make (in the above example it would be xf unc .make) 
and change the following: 

Add-N14 -k next to FFLAGS -q, separated with only a space. 

Change the word next to -sg to the same name as the -m option only all lower case. 
When this link is run any unnecessary libraries will cause a warning message. 
They will not cause a linker abort, but there will be a warning. The 
unnecessary libraries can be removed for the library list. (See above example) 

5 Run Build... under the Mac Fortran menu. In the window type the program 
file name. 

6 Correct the code to remove any compile and linkers errors and repeat STEP 5. 

7 Quit MPW 

8 Move the compiled function file into the Excel folder. 

9 Launch Excel 

10 Open a new Macro sheet. (File, Neill...) 

11 Create the following macro: 



R 

1 

load 

_ ... ------ . _ . - — —. . . _,_ . _ ir(ril _ _ J 

2 

=REGISTER(" Hfunc MAIN ",“KK") 

3 

=RETURN0 | 


Replace the word Hfunc with the name of your compiled function file. 

12 Select cell A1 and then select Define Name under the Formula Menu. Select 

the Command button and type p in the box next to Key:. Click OK. Now 
pressing "option + 4 + p" will load the external function. 

13 Save this Macro sheet as load.Hfunc using Satie Rs... 

14 Press "option + fk + p". This loads the external function. 

15 Press " 4 + ' ". In A2 a number should be there, if not there is something wrong 
with the REGISTER arguments, the Build script or the interface code. Check for 


Page 5 of 6 


Printed: Wednesday, March 10,1993 


FORTRAN external functions for Microsoft Excel and Absoft MacFortran II 



consistency between names and arguments. Press " 4 + ' " again to return to 
normal display. 

STEP 16 Create your worksheet and select the appropriate output range for your function and 

type in a CALL function with load.Xfunc!$fl$2asthe registerJext and the 
appropriate input range. Enter the function by pressing "4 + enter" (This entry 
method is necessary for any Excel array function). The following is an example for 
a function that has a 3 cell input range and a l-by-3 (rows by columns) output 
range: 



R 

1 

1 

2 

2 

3 

3 

4 

I 

A 

5 

= CRLL(load.xfunc!$R$2,R1 :H3) 

6 


7 



The double box is the selected area. Cells A5, A6 and A7 are now the return array. 
STEP 17 Save the worksheet. 

STEP 18 Select Define Name under Formula menu 

In the N a m e : box type autoload 

In the Refers to: box type load.xfuncMoad 

Click Rdd 
Click Ok 

STEP 19 Save worksheet. 

Now when the worksheet is opened the Macro sheet will automatically be opened 
and executed, loading the external function. 

After following this procedure you will have three files to keep track of: 

• FORTRAN Function 

• Excel worksheet 

• Excel Macro sheet 

To avoid operational problems keep these files in the same folder. Similarly there 
are FORTRAN files that should be kept together: 

• Function source code file 

• Any Subroutine source code files 

• Function .make file 
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